主题：如何设置全局变量日期？

如图：

 

此主题相关图片如下：250.jpg

 

出货单日期控件名称为：DateTimePicker1

 

 

窗口 afterload 事件有一段代码：

 

Dim chuhuodate2 As Date  '这是全局变量
Dim Datetimepicker1 As Date
If chuhuodate2="" Then '如果全局变量没有设定日期
Datetimepicker1=Date.Today() '那么日期等于今天
Else
Datetimepicker1=chuhuodate2  '否则等于全局变量的日期。
End If

运行窗口的时候出错如下：

 

 

此主题相关图片如下：251.jpg

 

如何解决呢？

 

设定出货单日期的代码如下：

 

 

此主题相关图片如下：252.jpg

 

确定按钮代码如下：

 

click 代码：

 

Dim chuhuodate2 As Date  '已设定为全局变量
Dim DateTimePicker1 As Date
chuhuodate2=DateTimePicker1
 
Forms("设定出货单日期").close()

 

您那是全局变量吗？

这样的代码是有问题的:

 

Dim chuhuodate2 As Date
If chuhuodate2 = "" Then

 

日期怎么能和字符比较？

哦，我还以为他把全局变量引用错误，没细看！

二楼 把日期传递到 全局变量应该没有错吧。

 

那么

 

Dim chuhuodate2 As Date  '这是全局变量
Dim Datetimepicker1 As Date
If chuhuodate2="" Then '如果全局变量没有设定日期
Datetimepicker1=Date.Today() '那么日期等于今天
Else
Datetimepicker1=chuhuodate2  '否则等于全局变量的日期。
End If

这段代码该怎么改呢？

Dim chuhuodate2 As Date
If chuhuodate2 = New Date
   messagebox.show("没有设置值")
End If

不知道 管理员7楼的回复是什么意思。

 

我的想法是通过2楼的窗口 设定全局变量 出货单日期。

如果设定出货单日期那么 打开1楼的出货单录入窗口的时候 日期为设定的日期。如果没有设定日期，那么日期为当前系统日期。

 

如何判断某个控件是否输入了值，可以看看：

http://www.foxtable.com/help/topics/1058.htm

 

这个例子非常详细。

我这里不是 判断控件是否输入值，而是判断 日期全局变量 是否已经赋值。