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

想要加载一定日期内生产状态不是“生产中”的数据，可下代码只能加载时间内数据，却不能剔除出生产状态不是“生产中”的数据，是哪里出错呢？

Dim d1 As Date = e.Form.Controls("datetimepicker1").value

Dim d2 As Date = e.Form.Controls("datetimepicker2").value

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

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