把dtpicker的日期写在text1,然后再把text1.text记录在数据库(记录在数据库地方法你应该会吧）
把dtpicker的日期写在text1方法如下：
Private Sub DTPicker1_CloseUp()
Text1.Text = Format(DTPicker1, "ddddd")
End Sub
Private Sub Form_Load()
DTPicker1 = Format(Date, "ddddd")
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024