[已解决]DTPicker控件問題請教！

KenKuo

各位高手，小弟因需求而製作了一個表單，表單裡頭有加入了「多重頁面」的控制項。其中，Page1中有加入了DTPicker控件，Page2裡頭沒有。問題於附件中~~請問一下，為何在Page1選擇了日期後，如果點選Page2之後，原DTPicker.value的值會跑掉，這是為何？如何做才能於page1選好後，選擇page2後，再點選按鈕而顯示出DTPicker在Page1裡的日期呢？請大家幫忙，謝謝~~

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-4 11:14

到底是什么原因导致的我也没搞明白，毕竟DTPicker是一个插件，如果要实现你的效果倒是可以变通的来做：
在你的窗体上插入一个textbox控件，把该控件放在多页控件的后面隐藏起来，然后加载窗体或者DTPicker有Change的时候把DTPicker的值赋值给TextBox控件，最终显示时显示textbox的值

1. Private Sub CommandButton1_Click()
   
2.     MsgBox Me.TextBox1
   
3. End Sub
   
4. 
   
5. Private Sub DTPicker1_Change()
   
6.     Me.TextBox1.Value = Me.DTPicker1.Value
   
7. End Sub
   
8. 
   
9. 
   
10. Private Sub UserForm_Initialize()
    
11.     Me.TextBox1.Value = Me.DTPicker1.Value
    
12. End Sub

复制代码

跳转到最佳答案楼层

KenKuo

上傳附件，請參考~~

老司机带带我

到底是什么原因导致的我也没搞明白，毕竟DTPicker是一个插件，如果要实现你的效果倒是可以变通的来做：
在你的窗体上插入一个textbox控件，把该控件放在多页控件的后面隐藏起来，然后加载窗体或者DTPicker有Change的时候把DTPicker的值赋值给TextBox控件，最终显示时显示textbox的值

1. Private Sub CommandButton1_Click()
   
2.     MsgBox Me.TextBox1
   
3. End Sub
   
4. 
   
5. Private Sub DTPicker1_Change()
   
6.     Me.TextBox1.Value = Me.DTPicker1.Value
   
7. End Sub
   
8. 
   
9. 
   
10. Private Sub UserForm_Initialize()
    
11.     Me.TextBox1.Value = Me.DTPicker1.Value
    
12. End Sub

复制代码

KenKuo

老司机带带我 发表于 2016-6-4 11:14
到底是什么原因导致的我也没搞明白，毕竟DTPicker是一个插件，如果要实现你的效果倒是可以变通的来做：
在 ...

謝謝大大回覆~~小弟參考您提供的作法確實可行(唯使用的是變數儲存DTPicker的值)，雖然不知道為什麼會選不同的page後，DTPicker的值會跑掉，不過，已解決了問題~~謝謝~~