Dim Cols1() As String = {"出货单","出货日期","单位ID"} ‘其它列自己补充完整，注意要一一对应
Dim Cols2() As String = {"第一列","第二列","第四列"}‘其它列自己补充完整，注意要一一对应
Dim Cols3() As String = {"产品ID","产品名称","规格"}‘其它列自己补充完整，注意要一一对应
Dim Cols4() As String = {"第四列","第三列","第五列"}‘其它列自己补充完整，注意要一一对应
For Each dr As DataRow In DataTables("出货单").Select("出货单 is not null")
Dim dr2 As DataRow = DataTables("导出").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr(Cols1(i))
Next
For Each dr3 As DataRow In DataTables("出货记录").Select("出货单 = '" & dr("出货单") & "'")
Dim dr4 As DataRow = DataTables("导出").AddNew()
For i As Integer = 0 To Cols3.Length -1
dr4(Cols4(i)) = dr3(Cols3(i))
Next
Next
Next
加好友 
发短信
Post By：2020/1/8 16:11:00 [显示全部帖子]
