以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  两个表之间如何进行数据比对 并采集另一个表中的值?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157939)

--  作者:xnsiwei
--  发布时间:2020/11/3 5:32:00
--  两个表之间如何进行数据比对 并采集另一个表中的值?
目的是在两个表之间进行数据比对并采集另一个表中某列的值(比对其中两列如果相同,则采集填充第三列的数据)

[此贴子已经被作者于2020/11/3 5:33:49编辑过]

--  作者:有点蓝
--  发布时间:2020/11/3 8:48:00
--  
遍历查询

For Each dr1 As DataRow In DataTables("表A").datarows
    Dim
 dr2 As DataRow = DataTables("表B").find("编号=\'" & dr1("编号") & "\'")
   if dr2 is nothing then
数据不存在的操作
else
数据存在的操作
end if
Next

--  作者:xnsiwei
--  发布时间:2020/11/4 6:46:00
--  [求助]遍历查询的代码是放到事件里面吗?
遍历查询的代码是放到事件里面吗?还是表达式里面?谢谢
--  作者:有点蓝
--  发布时间:2020/11/4 8:36:00
--  
都不是,设计一个窗口,添加按钮,放到按钮事件中
--  作者:xnsiwei
--  发布时间:2020/11/8 19:14:00
--  
能否提供一个遍历查询代码实现以下功能:

表1有A、B、C三列

表2有A、B、C三列
如果表1的A、B两列与表2的A、B两列都相同,则将表2的C列非空内容填入表1的C列

谢谢!

--  作者:xnsiwei
--  发布时间:2020/11/8 19:15:00
--  [求助]能否提供一个遍历查询代码实现以下功能
能否提供一个遍历查询代码实现以下功能:

表1有A、B、C三列

表2有A、B、C三列
如果表1的A、B两列与表2的A、B两列都相同,则将表2的C列非空内容填入表1的C列

谢谢!

--  作者:有点蓝
--  发布时间:2020/11/8 20:40:00
--  
For Each dr1 As DataRow In DataTables("表A").datarows
    Dim
 dr2 As DataRow = DataTables("表B").find("a=\'" & dr1("a") & "\' AND 
b=\'" & dr1("b") & "\'")
   if dr2 is nothing then
dr1("c") = dr2("c")
end if
Next

--  作者:xnsiwei
--  发布时间:2020/11/9 6:51:00
--  设计窗口按钮放入事件代码后显示:未将对象引用设置到对象的实例。
设计窗口按钮放入事件代码后显示错误:未将对象引用设置到对象的实例。
--  作者:有点蓝
--  发布时间:2020/11/9 8:57:00
--  
if dr2 is nothing then改为if dr2 isnot nothing then
--  作者:xnsiwei
--  发布时间:2020/11/9 20:35:00
--  好了,非常感谢
好了,非常感谢