主题：关于getcheckdrows

Dim rs As List(of Row) = Tables("应收款").GetCheckedRows()

For Each r As Row In rs

    Dim nma() As String = {"购方简称","日期","销售单号","客户"} 'A表数据来源列

    Dim nmb() As String = {"客户简称","单据日期","单号","客户"} 'B表数据接收列

    Dim dr As DataRow = DataTables("日报").AddNew

    For i As Integer = 0 To nma.Length - 1

        dr(nmb(i)) = r(nma(i))

    Next

Next