Question

关于dtpicker控件的设置问题！

我的dtpicker 控件的默认时间是2010-3-10

如果我13日添加数据，启动程序的时候加了一下代码，时间值还是默认时间
代码如下：

Static mydate As Date
mydate = Format(Now, "yyyy-m-dd")
DTPicker1.Value = mydate

以上代码我想实现的是

在添加完一次数据时，再添加数据，时间不会回到控件的默认时间。

想知道为什么时间值改不了呀！

现在写了代码后，每次启动时间还是默认时间值。很郁闷。没有办法，就想定义个静态变量来定义时间值。

可是问题依旧！！！

还有，我还想在启动程序的时候，更改时间，在没有关闭程序的时候，这个修改的时间一直有效，不要每次修改，都要修改时

间。

主要的意思是这样的：

启动的时候，dtpicker控件的值 等于 我规定格式的当前值，在没有关闭前，我要修改时间值，时间值，在我第二次

修改前永远不变，只有从新load 后，才变成我规定格式的当前值！

希望大家帮忙教我一下，这个问题困扰我很久了。

至于 dtpicker1.value = now/date 都试过，没有用！！！

开始还以为我可能把控件里的设置更改过了，会有影响，后来我删除了原来的控件，从新添加了控件，写上代码，问题依旧。。。。。

Answer 1

你写的太多了，一下不好理解你的意思，大致看了下，看看这样能不能解决
public mydate As Date '这句写在模块里，做公共变量,这样就可以达到记忆的功能

'下面的这段放在form_Load里
if mydate="" then
mydate = Format(Now, "yyyy-m-dd")
end if
DTPicker1.Value = mydate

然后再加DTPicker1的Change事件，如下代码
Private Sub DTPicker1_Change()
mydate = DTPicker1.Value
End Sub