如果选择列是个逻辑列,参考:
http://www.foxtable.com/webhelp/topics/1533.htm
Dim Cols1() As String = {"商品编码",".....}
Dim Cols2() As String = {"商品编码",".....}
For Each dr1 As DataRow In DataTables("生产计划表").Select("选择=true")
Dim dr2 As DataRow = DataTables("产品信息表").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next