| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]请高手帮助数据比对的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43290) |
| -- 作者：wodewo -- 发布时间：2013/12/3 23:08:00 -- [求助]请高手帮助数据比对的问题 我想实现任意两张Excel表分别导入到FOXTABLE中，然后通过选择两个表的列进行比对，请高手指教通过代码如何实现。 |
| -- 作者：Bin -- 发布时间：2013/12/4 8:26:00 -- 不知道你具体要怎么个对比法, 如果行数是一样的话 for each i as integer = 0 to tables("表A").rows.count-1 tables("表A").rows(i) tables("表B").rows(i) \'这样就可以对比了 next 也许你是要找到对应的行作为对比. 例如以编号为基准 for each i as integer = 0 to datatables("表A").datarows.count-1 dim dr as datarow = datatables("表B").Find("编号=\'" & datatables("表A").datarows(i)("编号") & "\'") \'这样就找到了对应的行,希望对比那个列的值使用IF判断即可 if dr isnot nothing then if dr("要对比的列名")=datatables("表A").datarows(i)("要对比的列名") then messagebox.show("相等") else messagebox.show("不相等") end if end if next 没有具体的问题,没办法给你具体的答复, 纸上谈兵也是不科学的,有例子最好. 另外新手建议先看一下我们的帮助 打开软件按F1或者点击左上角的小问号,可以打开非常详细的图文帮助
|