主题：[求助] 关于数据集合比较

用filler处理吧

http://www.foxtable.com/webhelp/scr/0680.htm

直接写代码也行

Dim Ar As New List(Of DataRow)
Ar= DataTables("临时表").Select("合同号 = '" & SA & "'")
Dim Br As New List(Of DataRow)
Br= DataTables("合同表").Select("合同号= '" & SA & "'")
For Each adr As DataRow In ar
    Dim contains As Boolean = False
    For Each bdr As DataRow In br
        Dim flag = True
        For Each dc As DataCol In DataTables("合同表").datacols
            If adr(dc.name) <> bdr(dc.name) Then
                flag = False
                Exit For
            End If
        Next
        If flag = True Then
            contains = True
            Exit For
        End If
    Next
    If contains = False Then
        msgbox("不存在")
    End If
Next