主题：如何将控件中审核的值附到表中的审核列

老师，请帮我看下，求代码

当控件  “编号”的值=  表中"编号"  的值时，我想把 控件“审核1”的值附到  表中相同“编号”那列审核2中

此主题相关图片如下：qq截图20150315112602.jpg

当下拉数据选1时，审核1勾选后，表中编号为1的那行的审核2也勾选，如果是去掉勾选，审核2也去掉勾选

TextChanged 事件

 

 DataTables("表A").ReplaceFor("审核", e.Form.Controls("CheckBox1").Checked, "编号 = '" & e.Sender.Text & "'")

甜甜老师，我绑定的是个副本表，把下列代码输入后运行，提示不存在设计方案_客户拜访记录的datatables，但是我检查了又检查窗口名称是设计方案，绑定表名称也是客户拜访记录，是否作为副本也改为TRUE，

我实在是检查不出来什么毛病，这种情况我遇到了好几次了，您能帮我看看是什么问题吗？

 

DataTables("设计方案_客户拜访记录").ReplaceFor("审核", e.Form.Controls("审核2").Checked, "编号 = '" & e.Sender.Text & "'")

老师我的问题该如何解决！谢谢

改成

 

Tables("设计方案_客户拜访记录").DataTable.ReplaceFor("审核", e.Form.Controls("审核2").Checked, "编号 = '" & e.Sender.Text & "'")

甜老师，数据表的问题解决了，可是您这段代码输入进去后不是我想要的效果

我是想当我勾选或者去掉勾选审核1时，对应的审核2也发生相应的变化

下面是我在checkedchanged事件中写的代码，但没有任何反应，请甜老师请教

 

Dim sh As WinForm.CheckBox = Forms("设计方案").Controls("审核2")
Dim bh As WinForm.ComboBox = Forms("设计方案").Controls("编号")
If Tables("设计方案_客户拜访记录").Filter = "编号 = '" & bh.Text & "'" Then
    Tables("设计方案_客户拜访记录").Current("审核") = " sh.Checked "
End If

Dim sh As WinForm.CheckBox = Forms("设计方案").Controls("审核2")
Dim bh As WinForm.ComboBox = Forms("设计方案").Controls("编号")

 

Tables("设计方案_客户拜访记录").DataTable.ReplaceFor("审核", sh.Checked, "编号 = '" & bh.Text & "'")