请教学习手工编码填充数据中代码的问题 Post By:2017/2/16 10:52:00 [只看该作者]
代码,请教老师!
Dim Cols1() As String = {"A表数据1","A表数据2","A表数据3"} Dim Cols2() As String = {"B表数据1","B表数据2","B表数据3"} For Each dr1 As DataRow In DataTables("表A").Select("A表数据2") Dim dr2 As DataRow = DataTables("表B").AddNew() For i As Integer = 0 To Cols1.Length -1 dr2(Cols2(i)) = dr1(Cols1(i)) Next Next