http://www.foxtable.com/webhelp/topics/2747.htm,看实例六
Dim xms As New List(of String()) = DataTables("GMYX").GetValues("XZMC|xjhzXM")
For Each ns As String() In xms
Dim dr1 As DataRow = DataTables("GMYX").find("XZMC='" & ns(0) & "' and xjhzXM='" & ns(1) & "'")
Dim dr2 As DataRow = DataTables("C").AddNew()
dr2("xzMC") = ns(0)
dr2("xjhzXM") = ns(1)
dr2("xjhzTEL") = dr1("XJHZDH")
dr2("xjhzZW") = dr1("XJHZZW")
Next