主题：从控件中取值

Dim gx As WinForm.CheckBox = e.Form.Controls("CheckBox1")
If gx.Checked=True Then 

 Tables("表A").Current("第四列")=gx.Text
End If

  最好还是上例子，这样才能最快和最准确帮你解决问题