主题：对比两份资料的差异，能不能用狐表对比出来？？

不是给过你嘛：（维持你的中文逗号了）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

回答9楼：

在我的按钮中代码后再加上这段：

For Each dr As DataRow In DataTables("表2").DataRows
    Dim f As String = "[编号] = " & dr("编号") & " And [描述]=  '" & dr("描述") & "'"
    Dim s As String = ""
    Dim s2 As String =""
    Dim drf As DataRow
    drf = DataTables("表1").Find(f)
    If drf Is Nothing
        msgbox("【表2】不同的有: 编号为: 【" & dr("编号") & "】 里面的 " & dr("位置") )
    End If
Next

呵呵，不急，慢慢学，等你成狐狸精了还得向你学呢··· 玩笑啦···

管理项目－窗口管理－设计 ： 双击那个按钮就知道往哪加了。。。。