主题：从两个表提取不同行数据，填充到一个表

    Dim CS1 As Integer = 0

    Dim CS2 As Integer = 0

    CS1 = DataTables("对账单").DataRows.Count   '读取现有行数

    CS2 = DataTables("收款明细表").Select("客户名称='" & txt & "'").Count

    

    If CS1 < CS2 Then '增加行数

        DataTables("收款明细表").AddNew(CS2-CS1)

    End If

    

    Dim i As Integer =0

    For Each dr1 As DataRow In DataTables("收款明细表").Select("客户名称='" & txt & "'")

        Tables("对账单")(i,"收款日期") = dr1("付款日期")

        Tables("对账单")(i,"收款金额") = dr1("付款金额")

        i = i +1

    Next