Dim Vals As List(of String)Vals = DataTables("来源表").GetValues("产品")For i As Integer = 0 To Vals.Count - 1 Dim dr As DataRow = DataTables("接收表").AddNew() dr("产品") = Vals(i)Next
http://www.foxtable.com/help/topics/1533.htm