LISTBOX双击传输到新窗口，日期变成了数字……

sunw1984

各位高手，本人新学习VB，现在遇到以下问题，麻烦不吝赐教，非常感谢
1. 内容：EXCEL 创建的UserForm2窗口中的设置查询并显示在listbox中，双击后listbox中的数据会传输到新窗口Userform4
2. 遇到的问题：①双击listbox中的数据后，弹出的Userform4有时没有数据，需要关闭并再次双击后数据方可显示在Userform4的窗口中，请问这怎么解决（即第一次双击有时不灵，数据过不去，第二次双击正常）？
3. Listbox中的时间（长时间，YYYY/MM/DD HH:MM:SS）传输到新窗口后变成了数字，需要仍显示原来的日期及格式，如何解决？

我用的代码如下：

1. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   
2. UserForm4.Show
   
3. Dim i&
   
4.     For i = 1 To 5
   
5.     UserForm4.Controls("TEXTbox" & i).Text = Me.ListBox1.List(Me.ListBox1.ListIndex, i)
   
6.     Next
   
7. End Sub

复制代码

截图如下：

1

2

活在理想的世界

用FORMAT重新定义一下

不知道为什么

千言万语敌不过一个好的附件

yaojil

要求不高的话,可以参考（只精确到日期）

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm4.Show
Dim i&
For i = 1 To 4
    UserForm4.Controls("TEXTbox" & i) = Me.ListBox1.List(Me.ListBox1.ListIndex, i)
Next
UserForm4.Controls("TEXTbox5") = Format(Me.ListBox1.List(Me.ListBox1.ListIndex, 5) , "yyyy/m/d")
End Sub