以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何对集合里的行再做排序  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174153)
--  作者：stone9434
--  发布时间：2022/1/4 15:57:00
--  如何对集合里的行再做排序
drs = e.DataTable.SQLSelect("[产品名称] = \'" & mr("产品名称") & "\'","", "出入库日期,[_identify]") 
drs.Add(mr)  \'

请教：
=====sqlselect不包含未保存行，mr是新增行，所以不包括在内，我想对drs包含的行再作"出入库日期,[_identify]"的排序，应该如何写？
--  作者：有点蓝
--  发布时间：2022/1/4 16:51:00
--  
需要新建一个集合

drs = e.DataTable.SQLSelect("[产品名称] = \'" & mr("产品名称") & "\'","", "出入库日期,[_identify]") 
drs.Add(mr)
dim v as boolean
dim lst as new list(of datarow)
for each dr as datarow in drs
if dr("出入库日期") <= mr("出入库日期") then
if dr("_identify") < mr("_identify") then
lst.add(dr)
continue for
end if
end if
if v = false then
lst.add(mr)
end if
lst.add(dr)
continue for
next