主题：点击按钮输入相应的文字

CheckedChanged 事件

Dim c1 As WinForm.CheckBox = e.Form.Controls("CheckBox1")
Dim c2 As WinForm.CheckBox = e.Form.Controls("CheckBox2")

If c1.name = e.Sender.name Then
    c2.Checked = not e.Sender.Checked
ElseIf c2.name = e.sender.name Then
    c1.Checked = not e.Sender.Checked 
End If

If e.sender.Checked Then        
    Tables("表B").Current("第三列") = e.sender.text       
End If