请问如何对DTPicker付值？

秋雨 2007-10-09 06:33:37

1：程序一打开，DTPicker中总是赌如当前日期，能否不让他读取？
2：如何对他付值？

...全文

72 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

SungCen 2007-10-10

打赏
举报

Me.DTPicker.SetDate Year(Date), Month(Date), Day(Date)

hui_hui_2007 2007-10-10

打赏
举报

在窗体上加一个日期挑选器，然后拷下面代码，
Option Explicit

Private Sub Command1_Click()
dt1.Format = 3
dt1.CustomFormat = " "
dt1.Value = ""
End Sub

Private Sub dt1_Click()
If IsNull(dt1.Value) Then
dt1.Format = 3
dt1.CustomFormat = " "
Else
dt1.Format = 1
End If
End Sub