不建议用DTPicker直接读写数据库.因为,对数据库来说,存在一个NULL值.而DTPicker并不支持NULL OR "".所以建议这样做.
用一个TEXTBOX显示和回写数据库.将该TEXTBOX的位置移至DTPicker.让DTPicker刚好有一个按钮露出来即可.这样,你更容易控制日期格式也不容易出错.
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
Text1 = DTPicker1.Value
End Sub
Private Sub DTPicker1_Change()
Text1 = DTPicker1.Value
End Sub