-- 作者:大红袍
-- 发布时间:2016/3/4 9:20:00
--
1、设置成dateTime格式;
2、textChanged事件
Dim str As String = e.Form.Controls("DateTimePicker2").Text & " " & e.Form.Controls("TextBox1").Text Dim d As Date If Date.TryParse(str, d) Then e.Form.Controls("DateTimePicker1").Value = d End If
|