DateTimePicker1的ValueChanged代码: 提示#附近有语法错误
Dim sj As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim jssj As Date = sj.Value
Dim fhdh As WinForm.ComboBox = e.Form.Controls("ComboBox13")
Dim hydh As WinForm.ComboBox = e.Form.Controls("ComboBox03")
If fhdh.text > "" Then
DataTables("库存明细表").LoadFilter = "出库完成时间 > #" & jssj & "# And 出库完成时间 < #" & jssj.adddays(1) & "# And U8发货单号 = '" & fhdh.text & "'"
DataTables("库存明细表").Load
ElseIf hydh.text > "" Then
DataTables("库存明细表").LoadFilter = "出库完成时间 > #" & jssj & "# And 出库完成时间 < #" & jssj.adddays(1) & "# And U8发货单号 = '" & hydh.text & "'"
DataTables("库存明细表").Load
End If
加好友 
发短信
Post By：2017/5/5 15:00:00 [显示全部帖子]
