- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请大神指点： (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49359)
-- 发布时间：2014/4/16 18:18:00
-- 请大神指点：
If e.Form.controls("DateTimePicker1").value = “” Then
MessageBox.Show("请输入完整统计日期!","提示")
End If
这个代码如果输入了日期会出现错误提示框，“”到date转换无效。请问怎么实现日期值没有输入时候的判断呢？
-- 发布时间：2014/4/16 18:35:00
--
请时候提示：应为语句结束，是什么意思呢？
-- 发布时间：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
-- 发布时间：2014/4/16 20:30:00
--
Dim d1 As Date = e.Form.controls("DateTimePicker1").value
Total1 = dt.compute("sum(吨位)","([进出库分类]=\'进库\'or[进出库分类]=\'转存\') and [日期]< #\'& d1 & \'#")
这个计算中时间总是无法识别，怎么办呢？请指点~~~
-- 发布时间：2014/4/16 20:41:00
--
首先，你的代码太随意，该有的空格都懒得留。
Total1 = dt.compute("sum(吨位)","([进出库分类] = \'进库\' or [进出库分类] = \'转存\') and [日期] < #" & d1 & "#")
-- 发布时间：2014/4/16 23:09:00
--
不好意思 半路出家的，写得代码可以到是可用就是超级长 要命啊。你们写的最长的代码有多少呢？