如图：

此主题相关图片如下：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

这段代码该怎么改呢？

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

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

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

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

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

这个例子非常详细。