Dim gx As WinForm.CheckBox = e.Form.Controls("CheckBox1")If gx.Checked=True Then
Tables("表A").Current("第四列")=gx.TextEnd If
最好还是上例子,这样才能最快和最准确帮你解决问题
对了,以上代码是写在什么地方
CheckBox的 CheckedChanged