| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 增加的列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191818) |
| -- 作者：g1j2h3 -- 发布时间：2024/5/10 8:32:00 -- 增加的列 如何在B表后增加的列内填入A表中同名列的数据
|
| -- 作者：有点蓝 -- 发布时间：2024/5/10 8:55:00 -- 参考：http://www.foxtable.com/webhelp/topics/1451.htm |
| -- 作者：g1j2h3 -- 发布时间：2024/5/10 11:31:00 -- 下面这段代码不知错在哪，B表中的数据填不上 If e.DataCol.Name = "客户来源" Then Dim dr As DataRow \'否则在产品表查找同名的产品行,将找到的行赋值给变量dr dr = DataTables("接单登记").Find("[接单单号] = \'" & e.DataRow("接单单号") & "\'") If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing e.DataRow("客户来源") = dr("客户来源") End If End If A表是接单登记 B表是发货表，上边代码是在B表写的 批量把A表中客户来源列的数据赋值到B表发货表中的客户来源列 [此贴子已经被作者于2024/5/10 11:34:39编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2024/5/10 11:46:00 -- If e.DataCol.Name = "客户来源" Then 改为 If e.DataCol.Name = "接单单号" Then 然后B表旧数据重置一次 "接单单号"列
|