日期框[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 日期框[求助]

共有3223人关注过本帖树形打印复制链接主题：日期框[求助]

zcgmxf

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

加好友

发短信

等级：七尾狐帖子：1634 积分：14438 威望：0 精华：0 注册：2014/6/6 8:42:00

日期框[求助] 发帖心情

Post By：2016/3/24 16:12:00 [只看该作者]

老师，我的这段查询代码有问题没？十几台电脑其中一台提示：从字符串转换成日期或时间失败。

Dim dt As Date = e.Form.Controls("DateTimePicker1").value
If e.Form.Controls("DateTimePicker1").value = Nothing Then
    MessageBox.Show("请输入查询日期!","提示")
    Return
Else
    DataTables("从业人员健康检查表").LoadFilter = "[体检日期] = '" & dt & "' "
    DataTables("从业人员健康检查表").Load()
End If