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()

帮助文件有看过，不过还是不会，能直接给个代码么？