以文本方式查看主题

-  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=139846)
--  作者：zyxhx
--  发布时间：2019/8/22 22:50:00
--  如何设置数据比对模板
请问老师：如果两张表格中有很多相同的数据，如何快速进行数据比对？且提取重复项以及非重复项以及其对应行的数据。
--  作者：有点蓝
--  发布时间：2019/8/23 8:43:00
--  
没有快速的方法，只能遍历所有行，逐行进行查询比较

for each r as row in tables("表A").rows
   dim drs as List(of datarow) = datatables().select("第一列=\'" & r("第一列") & "\'")
    if drs.count > 1 then
   msgbox("与第一列相同的其它数据有" & drs.count-1 & "行")
end if
next
--  作者：zyxhx
--  发布时间：2019/8/23 18:34:00
--  
好的，谢谢老师。