求教！~比对，并根据比对结果自动输入相应文字 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求教！~比对，并根据比对结果自动输入相应文字

共有4242人关注过本帖树形打印复制链接主题：求教！~比对，并根据比对结果自动输入相应文字

liruiji

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：36 积分：385 威望：0 精华：0 注册：2014/3/17 15:25:00

求教！~比对，并根据比对结果自动输入相应文字 发帖心情

Post By：2014/10/17 14:52:00 [只看该作者]

A表

工程名称工程编号是否移交

A1 001

A2 002

A3 003

B表

工程名称工程编号

A1 001

A2 002

实现如下功能：

自动比对A、B两表，若A表中“工程编号”在B表中存在的，则A表中相应行的“是否移交”列自动标注为“是”，否则标注为“否”

请问代码该怎么编写，谢谢大神仙指导

liruiji

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：36 积分：385 威望：0 精华：0 注册：2014/3/17 15:25:00

Post By：2014/10/17 14:53:00 [只看该作者]

按上述功能，最后比对结果为：

A表

工程名称工程编号是否移交

A1 001 是

A2 002 是

A3 003 否

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/10/17 14:56:00 [只看该作者]

在DataColChanged事件中利用FIND查找一下是否存在

http://www.foxtable.com/help/topics/0396.htm

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

下一主题 >> << 上一主题

主题：求教！~比对，并根据比对结果自动输入相应文字