1、设置成dateTime格式;
2、textChanged事件
Dim str As String = e.Form.Controls("DateTimePicker2").Text & " " & e.Form.Controls("TextBox1").TextDim d As DateIf Date.TryParse(str, d) Then e.Form.Controls("DateTimePicker1").Value = dEnd If