Dim Cols3() As String = {"编号", "型号", "规格", "数量", "日期"}'
Dim Cols4() As String = {"编号", "型号", "规格", "数量", "日期"}'
For Each dr3 As DataRow In DataTables("表A").Select("[选中] = true ")'
Dim dr4 As Row = Tables("窗口1_表B").AddNew() '
For r As Integer = 0 To Cols3.Length - 1
dr4(Cols4(r)) = dr3(Cols3(r))
Next
Next
红字代码,报错Row不是DataRow,改为下面代码,也不行
For Each dr3 As Row In DataTables("表A").Select("[选中] = true ")'
窗口1_表B是副表,是 Dim dr4 As Row = Tables("窗口1_表B").AddNew() ,只能正表,不能用副表?