比如
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