不知道你具体要怎么个对比法, 如果行数是一样的话
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或者点击左上角的小问号,可以打开非常详细的图文帮助
加好友 
发短信
Post By：2013/12/3 23:08:00 [只看该作者]
