你可以看看: http://www.foxtable.com/help/topics/2292.htm
你可以DoubleClick事件中设置代码,稍微调整一下即可: Dim r1 As Row = e.RowDim r2 As DataRow = DataTables("表B").AddNewFor Each dc As DataCol In DataTables("表B").DataCols r2(dc.Name) = r1(dc.Name)Next