主题：[求助]分组统计

dim d as date = date.today

dim filter as string = "时间>=#" & d & "# and 时间<#" & d.adddays(1) & "#"

dim mindr as datarow = datatables("A").find(filter,"时间")

dim maxdr as datarow = datatables("A").find(filter,"时间 desc")

for each dr as datartow in datatables("A").sqlselect("序号 >=" & mindr("序号") & " and 序号 <=" & maxdr("序号") & " and  (时间<=#" & mindr("时间") & "# or 时间>=#" & maxdr("时间")  & "#)")

mdgbox(dr("序号") & "," & dr("时间") )

next