- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何将控件中审核的值附到表中的审核列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65394)
-- 发布时间：2015/3/15 11:30:00
-- 如何将控件中审核的值附到表中的审核列
老师，请帮我看下，求代码
当控件 “编号”的值= 表中"编号" 的值时，我想把 控件“审核1”的值附到 表中相同“编号”那列审核2中
此主题相关图片如下：qq截图20150315112602.jpg
-- 发布时间：2015/3/15 11:34:00
--
当下拉数据选1时，审核1勾选后，表中编号为1的那行的审核2也勾选，如果是去掉勾选，审核2也去掉勾选
-- 发布时间：2015/3/15 11:35:00
--
TextChanged 事件
DataTables("表A").ReplaceFor("审核", e.Form.Controls("CheckBox1").Checked, "编号 = \'" & e.Sender.Text & "\'")
-- 发布时间：2015/3/15 12:10:00
--
甜甜老师，我绑定的是个副本表，把下列代码输入后运行，提示不存在设计方案_客户拜访记录的datatables，但是我检查了又检查窗口名称是设计方案，绑定表名称也是客户拜访记录，是否作为副本也改为TRUE，
我实在是检查不出来什么毛病，这种情况我遇到了好几次了，您能帮我看看是什么问题吗？
DataTables("设计方案_客户拜访记录").ReplaceFor("审核", e.Form.Controls("审核2").Checked, "编号 = \'" & e.Sender.Text & "\'")
-- 发布时间：2015/3/15 12:28:00
--
老师我的问题该如何解决！谢谢
-- 发布时间：2015/3/15 14:10:00
--
改成
Tables("设计方案_客户拜访记录").DataTable.ReplaceFor("审核", e.Form.Controls("审核2").Checked, "编号 = \'" & e.Sender.Text & "\'")
-- 发布时间：2015/3/15 14:19:00
--
甜老师，数据表的问题解决了，可是您这段代码输入进去后不是我想要的效果
我是想当我勾选或者去掉勾选审核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
-- 发布时间：2015/3/15 14:21:00
--
Dim sh As WinForm.CheckBox = Forms("设计方案").Controls("审核2")
Dim bh As WinForm.ComboBox = Forms("设计方案").Controls("编号")
Tables("设计方案_客户拜访记录").DataTable.ReplaceFor("审核", sh.Checked, "编号 = \'" & bh.Text & "\'")