主题：[求助]用Filler将一个表复制到另一个表顺序被重排

手工填充：

http://www.foxtable.com/help/topics/1533.htm

For Each dr1 As Row In Tables("表A").Rows
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For Each dc As DataCol in DataTables("表A").DataCols
        dr2(dc.Name) = dr1(dc.name)
    Next
Next