各位老师，

 如下图，我在用户登陆窗口中勾选了“记住密码”复选框，确定时要实现用户表中对应列的复选框也选中，如下图

此主题相关图片如下：未命名.jpg

我用了以下代码，但提示出错

Dim UserName As String = e.Form.Controls("UserName").Value
Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox1")
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
If UserName = ""  Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Select * From {用户} Where [Name] = \'" & UserName & "\'"
dt = cmd.ExecuteReader
dr = dt.DataRows(0)
If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    _UserGroup = dr("Group")
    _UserRole = dr("Role")

其余代码略。。。

请问最后一句代码要怎么写？

谢谢！

好像错了，是否应该这样呢？

If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    _UserGroup = dr("Group")
    _UserRole = dr("Role")
   
    Dim cmd1 As New SQLCommand
    cmd1.CommandText = cmd.CommandText = "UPDATE {用户} SET Password = " & chk.checked & "  Where [Name] = \'" & UserName & "\'"
    cmd1.ExecuteNonQuery()

如果是SQL Server数据源还要将逻辑值转换成0和1

谢谢两位老师，现在不提示出错了，但是勾选后不起作用啊，问题会出在哪里呢？以下是确定按钮的全部代码，

Dim UserName As String = e.Form.Controls("UserName").Value
Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox1")
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
If UserName = ""  Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Select * From {用户} Where [Name] = \'" & UserName & "\'"
dt = cmd.ExecuteReader
dr = dt.DataRows(0)
If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    _UserGroup = dr("Group")
    _UserRole = dr("Role")
\'dr("记住密码") = True

dr("记住密码") = chk.checked
    If _UserName <> "开发者" Then
        TableCaptionVisible = False
        Dim drs As List(Of DataRow)
        drs = DataTables("授权表").Select("部门 = \'" & _UserGroup & "\' And 角色 In (\'" & _UserRole & "\')")
        If drs.count < 1 Then
            MessageBox.Show("你还没有被授权,不能查看及编辑任何数据,请联系管理员制授权!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.Form.Close()
            Syscmd.Project.Exit()
           
           
        Else
            e.Form.Close
           
            For Each dr1 As DataRow In drs
               
                \'        For Each dr1 As DataRow In DataTables("授权表").Select("部门 = \'" & _UserGroup & "\' And 角色 In (\'" & _UserRole & "\')")
                If dr1.IsNull("可查看列") Then
                    Tables(dr1("表名")).Visible = False
                    Tables(dr1("表名")).AllowEdit = False
                ElseIf dr1.IsNull("可编辑列") Then
                    Tables(dr1("表名")).AllowEdit = False
                Else
                    For Each tb As Table In Tables
                        If tb.name = dr1("表名") Then
                            For Each c As Col In tb.Cols
                                Dim a As String = c.name
                                If dr1("可查看列").contains(a) Then
                                    c.Visible = True
                                Else
                                    c.Visible = False
                                End If
                                If dr1("可编辑列").contains(a) Then
                                    c.AllowEdit = True
                                Else
                                    c.AllowEdit = False
                                End If
                            Next
                        End If
                    Next
                End If
            Next
            \'设置导航
            Forms("导航").Open()
            \'设置权限
           
        End If
    End If
    \'设置分页加载所有表
    \'    For Each dt1 As DataTable In DataTables
    \'       dt1.LoadFilter = "" \'清除加载条件
    \'       dt1.LoadTop = 20
    \'      dt1.LoadPage = 0
    \'      dt1.Load()
    \'Next
   
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

谢谢两位老师

dr("记住密码") = chk.checked 这样是没用的，因为这个不是针对的加载表也不是后台表，而是临时表的

你看看4、5楼

谢谢CZY老师，但反得修改还是不行，老提示出错，请问

SQL Server数据源还要将逻辑值转换成0和1要怎么写，是下面这样吗，我不会。

 Dim cmd1 As New SQLCommand
    If  chk.checked = True Then
        chk.checked =1
    Else
        chk.checked =0
    End If
   
    cmd1.CommandText = "UPDATE {用户} SET 记住密码 = " & chk.checked & "  Where [Name] = \'" & UserName & "\'"
    cmd1.ExecuteNonQuery()

谢谢！

谢谢狐爸，但运行了提示出错，是不是哪里不对？

此主题相关图片如下：qq截图20120829120700.jpg

如果不用SQL语句，直接用一般的方式用如下代码就很容易实现这个要求，如下：

Dim UserName As String = e.Form.Controls("UserName").Value
Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox1")
Dim dr As DataRow
If UserName = ""  Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = DataTables("用户").Find("[Name] = \'" & UserName & "\'")
If chk.checked = True Then
    dr("记住密码") = True
Else
    dr("记住密码") = False
End If

我还想问的是：是不是SQL语句执行速度更快？两者比较有什么不同？

谢谢！