主题：[求助]怎么把两个表的数据合到一张表上

再改一下

Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
For Each dr As DataRow In dt2.DataRows
    Dim filter As String = ""
    If dr("组名称") = "合计" Then
        filter = "单位 = '合计'"
    Else
        filter = "单位 = '" & dr("单位") & "' and 组名称 = '" & dr("组名称") & "'"
    End If
    Dim fdr As DataRow = dt1.Find(filter)
    If fdr IsNot Nothing Then
        For Each dc As DataCol In dt2.DataCols
            If dr.IsNull(dc.Name) AndAlso fdr.IsNull(dc.Name) = False Then
                dr(dc.Name) = fdr(dc.name)
            End If
        Next
    End If
Next