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

  没必要搞得太复杂

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

判断一下

Dim filter As String = ""
If 开始日期.value IsNot Nothing Then
    filter = " And 基本情况_检疫时间 >= '" & 开始日期.value & "'"
End If
If 结束日期.value IsNot Nothing Then
    filter = " and 基本情况_检疫时间  < '" & 结束日期.value.AddDays(1)  & "'"
End If

Dim vals As List(Of String) = DataTables("动物产地检疫工作记录").GetValues("申报单编号","申报单编号 Is Not Null " & filter)
For Each val As String In vals
    Dim ndr As DataRow = DataTables("动物产地检疫工作情况日汇总表").AddNew()
    ndr("申报单编号") = val
    Dim cdjl As DataRow = DataTables("动物产地检疫工作记录").Find("申报单编号 = '"& val & "' " & filter)