以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何对集合里的行再做排序  (http://foxtable.net/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