老师,下面用红色标出的代码设置成日期控件
If Vars("YN2") = "新增"
e.Form.Controls("TextBox1").Value = ""
e.Form.Controls("TextBox2").Value = ""
e.Form.Controls("DateTimePicker1").Value = ""
e.Form.Controls("TextBox4").Value = ""
e.Form.Controls("TextBox5").Value = ""
e.Form.Controls("TextBox6").Value = ""
Else
Dim Parts() As String = Vars("YN2").Split(",")
e.Form.Controls("TextBox1").Value = Parts(0)
e.Form.Controls("TextBox2").Value = Parts(1)
e.Form.Controls("TextBox3").Value = Parts(2)
e.Form.Controls("TextBox4").Value = Parts(3)
e.Form.Controls("TextBox5").Value = Parts(4)
e.Form.Controls("TextBox6").Value = Parts(5)
End If