Controls("CheckBoxA")的CheckedChanged事件代码：
If e.Sender.Name = "CheckBoxA" Then
Dim t As Table = Tables(e.Form.TableName)
If e.Sender.Checked = True Then
For Each r As Row In t.Rows
r("锁定A组") = True
Next
Else
For Each r As Row In t.Rows
r("锁定A组") = False
Next
End If
End If
Controls("CheckBoxB")的CheckedChanged事件代码：
If e.Sender.Name = "CheckBoxB" Then
Dim t As Table = Tables(e.Form.TableName)
If e.Sender.Checked = True Then
For Each r As Row In t.Rows
r("锁定A组") = True
r("锁定B组") = True
Next
Else
For Each r As Row In t.Rows
r("锁定B组") = False
Next
End If
End If
加好友 
发短信
Post By：2019/3/2 23:28:00 [显示全部帖子]
