方法1、关联筛选:
http://www.foxtable.com/webhelp/topics/1479.htm2、把2个表数据合并为查询表对比:http://www.foxtable.com/webhelp/topics/2322.htm
3、写代码遍历2个表的行逐一比较
For Each dr1 As DataRow In DataTables("表A").datarows
dim dr as datarow = DataTables("表B").Find("第一列='" & dr1("第一列") & "'")
if dr is nothing then
msgbox("没有数据")
end if
Next
Next