| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求教！~比对，并根据比对结果自动输入相应文字 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58489) |
| -- 作者：liruiji -- 发布时间：2014/10/17 14:52:00 -- 求教！~比对，并根据比对结果自动输入相应文字 A表 工程名称 工程编号 是否移交 A1 001 A2 002 A3 003
B表 工程名称 工程编号 A1 001 A2 002
实现如下功能： 自动比对A、B两表，若A表中“工程编号”在B表中存在的，则A表中相应行的“是否移交”列自动标注为“是”，否则标注为“否” 请问代码该怎么编写，谢谢大神仙指导 |
| -- 作者：liruiji -- 发布时间：2014/10/17 14:53:00 -- 按上述功能，最后比对结果为： A表 工程名称 工程编号 是否移交 A1 001 是 A2 002 是 A3 003 否 |
| -- 作者：Bin -- 发布时间：2014/10/17 14:56:00 -- 在DataColChanged事件中利用FIND查找一下是否存在 |
| -- 作者：有点甜 -- 发布时间：2014/10/17 14:58:00 -- For Each dr As DataRow In DataTables("表A").DataRows Dim fdr As DataRow = DataTables("表B").Find("第一列 = \'" & dr("第一列") & "\' and 第二列 = \'" & dr("第二列") & "\'") dr("是否移交") = fdr IsNot Nothing Next |