获取勾选的行:
复制数据:
组合一下:
Dim nma() As String = {"A1", "A2", "A3", "A4"} 'A表数据来源列
Dim nmb() As String = {"B1", "B2", "B3", "B4"} 'B表数据接收列
For Each r1 As Row In Tables("表A").GetCheckedRows
Dim r2 As DataRow = DataTables("表B").AddNew
For i As Integer = 0 To nma.Length - 1
r2(nmb(i)) = r1(nma(i))
Next
Next