For Each r As Row In Tables("表A").GetCheckedRows '表
Dim nma() As String = {"客户","联系人"} '字段
Dim nmb() As String = {"客户","联系人"} '字段
Dim dr As Row = Tables("表A").AddNew '表
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
Next
上面代码是复选框选中，导入数据：
1.上面代码是同表，都是同表A，问题我另一个单独，不是关联表（主表和明细）是可以执行，而在关联表就不行，要如何解决？
2.按上面代码改不同表，在关联表就不行，要如何解决？
For Each r As Row In Tables("表A").GetCheckedRows '表
Dim nma() As String = {"客户","联系人"} '字段
Dim nmb() As String = {"客户","联系人"} '字段
Dim dr As Row = Tables("表B").AddNew '表
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
Next
加好友 
发短信
Post By：2020/3/25 16:29:00 [只看该作者]
