| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 自动取值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101216) |
| -- 作者：何长孝 -- 发布时间：2017/5/26 20:13:00 -- 自动取值 老师你好，我现在有两张表；第一张是“职工信息表”第二张“工资信息表”怎么让“工资信息表姓名列”自动取值“职工信息表的姓名列”；请老师给指导下； |
| -- 作者：有点蓝 -- 发布时间：2017/5/26 20:39:00 -- 1、做成关联表，通过关联取值 http://www.foxtable.com/webhelp/scr/0091.htm
2、使用代码： 职工信息表DataColChanged事件 If e.DataCol.Name = "姓名" And e.NewValue IsNot Nothing Then \'如果内容发生变动的是姓名列 Dim dr As DataRow dr = DataTables("工资信息表").Find("[姓名] = \'" & e.NewValue & "\'") If dr Is Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing dr = DataTables("工资信息表").AddNew dr("姓名") = e.NewValue End If End If |