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

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

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

lsy

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

lsy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 & "#")

主题：请大神指点：