需要新建一个集合
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