以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  跨表取数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=172479)

--  作者:nbsugu_z
--  发布时间:2021/10/14 15:36:00
--  跨表取数
A表只有一行,列名:工程量
B表多行  有:编号列  和  工程量进度列


现在要求A表的工程量单元格从 B表以编号为条件 取 工程量进度 的数据到A表。但是A表没编号列的。要如何写代码

--  作者:有点蓝
--  发布时间:2021/10/14 15:50:00
--  
以编号为条件  -- 什么用的条件?

A表永远只有一行?

--  作者:nbsugu_z
--  发布时间:2021/10/14 18:44:00
--  
是的,A表永远是一行,我是作为动态更新的。比如查找到B表中某行编号为1234的这行,然后将工程进度量列的数据填充到A表工程量单元格。注意,B表编号肯定有的,且固定的字符
--  作者:有点蓝
--  发布时间:2021/10/14 20:42:00
--  
查询数据参考:http://www.foxtable.com/webhelp/topics/0396.htm

Dim dr As DataRow
dr = 
DataTables("
B表").Find("编号=\'1234\'")
If 
dr IsNot Nothing Then \'如果找到的话
    
Tables("B表").rows(0)("工程量") = dr("工程进度量")
End If

--  作者:nbsugu_z
--  发布时间:2021/10/14 22:06:00
--  
我真笨,写成e.datarow(“工程量”)=…….了,谢老师