根据不同表格日期顺序生成表格 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select可以用排序参数啊，例如帮助的代码是：

For Each dr1 As DataRow In DataTables("表A").Select("[金额] > 100")

Dim dr2 As DataRow = DataTables("表B").AddNew()

For Each dc As DataCol in DataTables("表A").DataCols

dr2(dc.Name) = dr1(dc.name)

你要根据日期顺序填充，只需：

For Each dr1 As DataRow In DataTables("表A").Select("[金额] > 100","日期")

Dim dr2 As DataRow = DataTables("表B").AddNew()

For Each dc As DataCol in DataTables("表A").DataCols

dr2(dc.Name) = dr1(dc.name)

您看一下Select的帮助：

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

主题：根据不同表格日期顺序生成表格