Dim GX As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox_工序")
Dim Filter As String
Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker_起始日期")
Dim dt2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker_结束日期")
Dim tb1 As WinForm.Table = e.Form.Controls("Table_查询表")
Filter = "工序 in ('" & GX.Text.replace(",", "','") & "') And 起始时间 >= #" & dt1.Value & "# And 起始时间 <= #" & dt2.Value & "#"
以上代码中的DateTimePicker输入的内容是data型,但在筛选时我希望自动补成datatime型,例如起始日期录入2015-03-25,结束日期录入2015-03-26,在进行筛选时能成为:2015-03-25 00:00与2015-03-26 23:59,谢谢!