主题：重发，如何设定和传递 日期 全局变量，

如图

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

设定出货单日期

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

每次打开出货单的时候，如果已经设定日期，那么出货日期就是已设定的日期，如果没有设定日期，那么出货日期为当前系统日期。

如何实现呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目19.table

Dim dt As Date

if e.Form.Controls(“DateTimePicker1”).Value IsNot Nothing then

   dt = e.Form.Controls(“DateTimePicker1”).Value

Else

  dt = Date.Today

End If

可是出货单的 DateTimePicker1 （出货日期）还是没有获取到数据呀。

1、定义一个全局变量：
 
Public  MyDate As Date = Date.Today

参考
http://www.foxtable.com/help/topics/1842.htm

 
2、窗口AfterLoad事件代码：

e.Form.Controls(“DateTimePicker1”).Value = MyDate

3、窗口确定按钮代码：

 MyDate = e.Form.Controls(“DateTimePicker1”).Value

谢谢！

我也是这样想的

可是弄错了。我以为是在全局变量这里设置。

有一点不明白 管理项目下 的 全局变量 和 全局代码 有什么区别？

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

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