VB+Access系統問題解答
問題:1.DTPicker控件設置為空;
'窗体截入时DTPicker1不显示时间
Private Sub Form_Load()
DTPicker1.Format = dtpCustom
DTPicker1.CustomFormat = " "
End Sub
'用户选择时DTPicker1显示时间
Private Sub DTPicker1_Change()
DTPicker1.Format = dtpLongDate
End Sub
'双击清除DTPicker1中显示的时间
Private Sub DTPicker1_DblClick()
DTPicker1.Format = dtpCustom
DTPicker1.CustomFormat = " "
End Sub
Private Sub Form_Load()
DTPicker1.Value =Format(now, "yyyy-MM-dd HH:mm:ss")
End Sub