http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50080
比如
For Each dr1 As DataRow In DataTables("表A").Select("[金额] > 100")
Dim dr2 As DataRow = DataTables("表B").find("Guid='" & dr1("Guid") & "'")
if dr2 is nothing then
dr2 = DataTables("表B").AddNew()
end if
For Each dc As DataCol in DataTables("表A").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
Next