如何将控件中审核的值附到表中的审核列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将控件中审核的值附到表中的审核列

共有3422人关注过本帖树形打印复制链接主题：如何将控件中审核的值附到表中的审核列

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/15 11:35:00 [显示全部帖子]

TextChanged 事件

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/15 14:10:00 [显示全部帖子]

改成

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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 & "'")

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