主题：登陆窗口中的复选框选中时让表中的复选框也选中

出错是因为：

http://www.foxtable.com/help/topics/2344.htm

至于速度，在这里没有什么差别，建议你不要用sql，就用常规方式解决就行。

谢谢狐神的回复，但外部数据源是有定义的，现在精简代码如下：

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")

 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()

Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

那行红色的，

本来是 cmd.C

不知什么原因复制到论坛上就只有前面部份了。 

但运行后还是会出现那个错误的提示框。现在只好不用SQL语句了。

奇怪，本来是

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

不知什么原因复制到论坛上就只有前面部份了。 

 cmd.C

谢谢CZY版主，已经加了9楼的那段代码了，但会出现10楼截图的那个错误，代码如下：

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")
    Dim cmd1 As New SQLCommand
    Dim v As Integer
    If chk.checked = True Then
        v = 1
    Else
        v  =0
    End If
    cmd1.CommandText = "UPDATE {用户} SET 记住密码 = " & v & "  Where [Name] = '" & UserName & "'"
    cmd1.ExecuteNonQuery()

外部SQL数据源及用户表都是定义好的，不会有错。

……

 _UserRole = dr("Role")
    Dim cmd1 As New SQLCommand

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

试试吧。

谢谢CZY版主，可以了，原来是每一个定义一个不同的SQLCommand命令都要重新设定一下外部数据源。

初学真的很多东西没有领悟啊。再次感谢！