CheckedChanged事件
If e.Sender.Checked Then Dim cr As Row = Tables("表A").Current cr("第二列") = e.Form.Controls("ComboBox1").Text cr("第三列") = e.Form.Controls("ComboBox2").Text cr("第四列") = TrueEnd If