主题：多条件加载数据的问题

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