关于DTPicker加速反应的问题！请帮忙

[leaf24]

不知发现没DTPicker有一延时过程。在未变成他的固定格式，或没有失去焦点前，如果此时保存数据。
是不能修改基日期的，它还是原来的日期！
有办法解决吗？

[viena]

没弄明白，您什么意思？

[davidwx]

保存数据前加一句
doevents

DoEvents 函数


转让控制权，以便让操作系统处理其它的事件。

语法

DoEvents( )

[leaf24]

等会我测试一下，看是否能成

[lisong770818]

我曾遇到此问题，不知道davidwx(学习．提高．也吵架) ( )方法可行否，未测试过。

[leaf24]

还是不行。

[yijiansong]

修改基日期的：
DTPicker。DATE=DATE

[didishu0807]

先选择一个日期，再保存
Rs.fields("mondate")=dtpicker1.value

[leaf24]

好我再看一看，很讨厌的事

[rainstormmaster]

要处理DTPicker1_Change事件：

Option Explicit
Dim s As String
Private Sub DTPicker1_Change()
s = CStr(Me.DTPicker1.Year) + "-" + CStr(Me.DTPicker1.Month) + "-" + CStr(Me.DTPicker1.Day)
s = Format(s, Me.DTPicker1.CustomFormat)
Debug.Print s
End Sub

Private Sub Form_Load()
Me.DTPicker1.CustomFormat = "dd-mm"
End Sub

[leaf24]

最后有办法决吗？
好象还是不行呢！
不能在CHANG事件里写呢。
是关于它有一个反应过程，太长，在还没有反应过来的情况下就点了保存。
这样存的数据是不对的。
难道只有延时吗？我不想那样做。
还有没有其它办法。
痛苦啊！

[rainstormmaster]

不能在CHANG事件里写呢。
是关于它有一个反应过程，太长，在还没有反应过来的情况下就点了保存。

不会吧？那有什么延时呀，估计是你的系统出了问题，换一台干净的机器试试

[waterw]

设置焦点在别的控件身上，就可以了

[leaf24]

TO：rainstormmaster
还是不行的，
你没有发现吗？
至少有2秒的延时，
不知为何！找了机子也是一样的结果！还是没有办法！
TO ：waterw
但不能控制它什么时候失去焦点。很讨厌！

[射天狼]

帮你UP吧~~