以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  DateTimePicker  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98405)

--  作者：huhu --  发布时间：2017/3/29 10:54:00 --  DateTimePicker Dim startdata As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker3") Dim Enddata As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker4") Dim yck As WinForm.RadioButton = e.Form.Controls("RadioButton1") Dim filter As String If (startdata.Value = "" And Enddata.Value = "" ) Then     filter = "出库状态 = 1" ElseIf (startdata.Value > "" And Enddata.Value > "") Then     msgbox(1)     filter = "导入日期 >= \'" & startdata.Value & "\'  And 导入日期 <= \'" & Enddata.Value & "\' And 出库状态 = 1" End If DataTables("销售出库单列表").LoadFilter = filter DataTables("销售出库单列表").Load 提示:从字符串“”到类型“Date”的转换无效。

--  作者：有点色 --  发布时间：2017/3/29 11:55:00 --   If (startdata.Text = "" And Enddata.text = "" ) Then     filter = "出库状态 = 1" ElseIf (startdata.text > "" And Enddata.text > "") Then     msgbox(1)     filter = "导入日期 >= \'" & startdata.Value & "\'  And 导入日期 <= \'" & Enddata.Value & "\' And 出库状态 = 1" End If