请大神指点： - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请大神指点：

共有3273人关注过本帖树形打印复制链接主题：请大神指点：

youngk

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

加好友

发短信

等级：童狐帖子：221 积分：1745 威望：0 精华：0 注册：2014/1/7 12:37:00

请大神指点： 发帖心情

Post By：2014/4/16 18:18:00 [只看该作者]

If e.Form.controls("DateTimePicker1").value = “” Then
MessageBox.Show("请输入完整统计日期!","提示")
End If
这个代码如果输入了日期会出现错误提示框，“”到date转换无效。请问怎么实现日期值没有输入时候的判断呢？

youngk

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

加好友

发短信

等级：童狐帖子：221 积分：1745 威望：0 精华：0 注册：2014/1/7 12:37:00

Post By：2014/4/16 18:35:00 [只看该作者]

请时候提示：应为语句结束，是什么意思呢？

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/4/16 18:43:00 [只看该作者]

If e.Form.controls("DateTimePicker1").Value = Nothing Then
MessageBox.Show("请输入完整统计日期!","提示")
End If

或者：

If e.Form.controls("DateTimePicker1").Text = "" Then
MessageBox.Show("请输入完整统计日期!","提示")
End If

youngk

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

加好友

发短信

等级：童狐帖子：221 积分：1745 威望：0 精华：0 注册：2014/1/7 12:37:00

Post By：2014/4/16 20:30:00 [只看该作者]

Dim d1 As Date = e.Form.controls("DateTimePicker1").value

Total1 = dt.compute("sum(吨位)","([进出库分类]='进库'or[进出库分类]='转存') and [日期]< #'& d1 & '#")

这个计算中时间总是无法识别，怎么办呢？请指点~~~

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/4/16 20:41:00 [只看该作者]

首先，你的代码太随意，该有的空格都懒得留。

Total1 = dt.compute("sum(吨位)","([进出库分类] = '进库' or [进出库分类] = '转存') and [日期] < #" & d1 & "#")

youngk

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

加好友

发短信

等级：童狐帖子：221 积分：1745 威望：0 精华：0 注册：2014/1/7 12:37:00

Post By：2014/4/16 23:09:00 [只看该作者]

图片点击可在新窗口打开查看不好意思半路出家的，写得代码可以到是可用就是超级长要命啊。你们写的最长的代码有多少呢？

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

主题：请大神指点：