Dim d1 As string = e.Form.Controls("datetimepicker1").Text
Dim d2 As string = e.Form.Controls("datetimepicker2").Text
If d1 = "0:00:00" Then
DataTables("新建订单").LoadFilter = "[生产日期] >= '" & d2 & "' "
End If
If d2 = "0:00:00" Then
DataTables("新建订单").LoadFilter = "[生产日期] >= '" & d1 & "' "
End If
If d1 <> "0:00:00" And d2 <> "0:00:00"
d2 = d2.AddDays(1)
DataTables("新建订单").LoadFilter = "[生产日期] >= '" & d1 & "' And [生产日期] <= '" & d2 & "' " And " [生产状态] <> '生产中' "
DataTables("新建订单").Load
End If