Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker")
Dim dt2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim Filter As String
Filter = "入库时间 >= #" & dt1.value & "# And 入库时间 <= #" & dt2.value & "#"
DataTables("入库").LoadFilter = Filter & " and 入库类型 = '采购入库' "
DataTables("入库").Load()