以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  DateTimePicker的数据放进DataTable.LoadFilter 报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60180)
--  作者：TongOk
--  发布时间：2014/11/19 17:48:00
--  DateTimePicker的数据放进DataTable.LoadFilter 报错
Dim ddrq_s As WinForm.DateTimePicker = e.Form.Controls("ddrq_s")
Dim ordernodtp As WinForm.TextBox = e.Form.Controls("orderno")
If ordernodtp.Value <> "" Then
    sqlwhere += "[orderno] =\'" & ordernodtp.Value & "\' and "
End If
If CStr(ddrq_s.Value) <> ""  Then
    sqlwhere += "[cdate] >=\'" & CStr(ddrq_s.Value) & "\' and "
End If
sqlwhere=sqlwhere.SubString(0,sqlwhere.LastIndexOf(" and "))
Tables("order").DataTable.LoadFilter = sqlwhere
Tables("order").DataTable.Load

以上代码运行后:
至少一个参数没有被指定值。

如果去掉第二个if的话就没有问题，不知道DateTimePicker 控件的值在loadFilter中怎么使用
用以上代码是可以取到DateTimePicker 中的值的，就是在查询时报错
--  作者：有点甜
--  发布时间：2014/11/19 17:51:00
--  

 

Dim ddrq_s As WinForm.DateTimePicker = e.Form.Controls("ddrq_s")
Dim ordernodtp As WinForm.TextBox = e.Form.Controls("orderno")
If ordernodtp.Value <> "" Then
    sqlwhere += "[orderno] =\'" & ordernodtp.Value & "\' and "
End If
If ddrq_s.Value <> Nothing  Then
    sqlwhere += "[cdate] >=\'" & ddrq_s.Value & "\' and "
End If
sqlwhere=sqlwhere.SubString(0,sqlwhere.LastIndexOf(" and "))
Tables("order").DataTable.LoadFilter = sqlwhere
Tables("order").DataTable.Load
--  作者：TongOk
--  发布时间：2014/11/25 19:41:00
--  
谢谢你的解答，不过问题是在于日期类型的数据 应该是用 ##引起来