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

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

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

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

你看看4、5楼

……

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

试试吧。