主题：[求助]如何按时间段统计？

增加1个  DateTimePicker 名为 开始日期

增加1个  DateTimePicker 名为 结束日期

时间格式设置为 Date

Dim vals As List(Of String) = DataTables("动物产地检疫工作记录").GetValues("申报单编号","申报单编号 Is Not Null And 基本情况_检疫时间 >= '" & 开始日期.value & " 00:00:00' and 基本情况_检疫时间  < '" & 结束日期.value  & " 23:59:59'")
For Each val As String In vals
    Dim ndr As DataRow = DataTables("动物产地检疫工作情况日汇总表").AddNew()
    ndr("申报单编号") = val
    Dim cdjl As DataRow = DataTables("动物产地检疫工作记录").Find("申报单编号 = '"& val & "' and 基本情况_检疫时间 >= '" & 开始日期.value  & " 00:00:00' and 基本情况_检疫时间  < '" &  结束日期.value  & " 23:59:59'")