[原创]：求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim r As Row = Tables("分期付款").Current

If r IsNot Nothing

Dim Filter As String = "业务编号 = '" & r("业务编号") &"'"

Dim lst As new List(of DataRow)

Dim names() As String = {"分期明细","费用明细"}

For Each Name As String In names

Dim drs As new List(of DataRow)

drs = DataTables(Name).Select(Filter)

For Each dr As DataRow In drs

lst.Add(dr)

请问： lst 集合是按照单个表的数据排序的，这个集合中

有一个 "交易日期" 的字段，求助要怎么写代码可以

让集合中的记录按‘交易日期‘ 排序？

DataTables("支出明细").DeleteFor(Filter)

For Each mr As DataRow In lst

Dim pr As DataRow = DataTables("支出明细").AddNew

For Each cl As Col In Tables("支出明细").Cols

pr(cl.Name) = mr(cl.Name)

Tables("支出明细").Save

e.form.Close

End If

drs = DataTables(Name).Select(Filter,"交易日期")

我试过了，还是不可以

肯定不会有问题。请上传实例说明

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目5.table

Dim r As Row = Tables("分期付款").Current

If r IsNot Nothing

Dim Filter As String = "业务编号 = '" & r("业务编号") &"'"

Dim sql As String = "select * from (select 交易日期,账户编号,账户名称,业务名称,交易金额,对象编号,对象名称,出账,账单编号,业务编号,审核,备注,交易方式,出账日期 from {分期明细} where " & Filter

sql &= " union all select 交易日期,账户编号,账户名称,业务名称,交易金额,对象编号,对象名称,出账,账单编号,业务编号,审核,备注,交易方式,出账日期 from {费用明细} where " & Filter & ") As a order by 交易日期"

Dim cmd As new SQLCommand

cmd.CommandText = sql

Dim dt As DataTable = cmd.ExecuteReader()

DataTables("支出明细").DataRows.Clear

For Each mr As DataRow In dt.DataRows

Dim pr As DataRow = DataTables("支出明细").AddNew

For Each cl As Col In Tables("支出明细").Cols

If pr.DataTable.DataCols.Contains(cl.Name)

pr(cl.Name) = mr(cl.Name)

End If

谢谢，已解决！！

主题：[原创]：求助