看看：http://www.foxtable.com/webhelp/topics/2225.htm
试试
Dim t As Table = Tables("表A1")
Dim t1 As Table = Tables("表A")
Dim lst As new List(of String)
For Each dc As DataCol In DataTables("表A1").datacols
If DataTables("表A").DataCols.Contains(dc.name) AndAlso dc.Expression = "" Then
lst.add(dc.name)
End If
Next
t1.StopRedraw
Dim r,r1 As Row
For i As Integer = t.TopPosition To t.BottomPosition
r = t1.AddNew()
r1 = t.Rows(i)
For Each s As String In lst
r(s) = r1(s)
Next
Next
t1.ResumeRedraw
加好友 
发短信
Post By：2021/8/9 22:40:00 [显示全部帖子]
