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)
Next
Next
请问 ： 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)
Next
Next
Tables("支出明细").Save
e.form.Close
End If
加好友 
发短信
Post By：2018/8/19 17:58:00 [只看该作者]
