DateTimePicker的数据放进DataTable.LoadFilter 报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → DateTimePicker的数据放进DataTable.LoadFilter 报错

共有5799人关注过本帖树形打印复制链接主题：DateTimePicker的数据放进DataTable.LoadFilter 报错

TongOk

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：47 积分：373 威望：0 精华：0 注册：2014/11/19 17:23:00

DateTimePicker的数据放进DataTable.LoadFilter 报错 发帖心情

Post By：2014/11/19 17:48: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 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 中的值的，就是在查询时报错

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：47 积分：373 威望：0 精华：0 注册：2014/11/19 17:23:00

Post By：2014/11/25 19:41:00 [只看该作者]

谢谢你的解答，不过问题是在于日期类型的数据应该是用 ##引起来

下一主题 >> << 上一主题

主题：DateTimePicker的数据放进DataTable.LoadFilter 报错