主题：用CheckBox控件输入内容，

你21楼的代码有什么问题？如果还有问题实例发上来测试

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

感谢 感谢 点击表的时候只有一个窗口能和表的第一列同步，感谢 感谢 

Dim r As Row = e.Table.current
If r IsNot Nothing Then
    If forms("窗口1").opened Then
        Dim str As String = ""
        systemready = False
        For i As Integer = 1 To 6
            Forms("窗口1").Controls("checkbox" & i).checked = r("第一列").contains(Forms("窗口1").Controls("checkbox" & i).text)
        Next
        systemready = True
    End If
    If forms("窗口2").opened Then
        Dim str As String = ""
        systemready = False
        For i As Integer = 2 To 7
            Forms("窗口2").Controls("checkbox" & i).checked = r("第一列").contains(Forms("窗口2").Controls("checkbox" & i).text)
        Next
        systemready = True
    End If
End If