DataTables("newmoo_product").save()
DataTables("订单号").addnew()
Dim Cols1() As String = {"ID","leaderID","备注2","订货数量","大小颜色","档口名称"}
Dim Cols2() As String = {"productID","leaderID","weight","productNum","color","lable"}
For Each dr1 As DataRow In DataTables("newmoo_product").Select("[id] Is not Null")
Dim dr2 As DataRow = DataTables("订单").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
' dr3(Cols3(i)) = dr1(Cols1(i))
Next
Next
DataTables("订单").Save()
DataTables("订单号").Save()
'DataTables("hongfu").Save()