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”的转换无效。
加好友 
发短信
Post By：2017/3/29 10:54:00 [显示全部帖子]
