给你添一个,打开日期选择下拉窗时自动填日期
窗口AfterLoad添加
Dim DTP As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")AddHandler ctype(dtp.basecontrol, C1.Win.C1Input.C1DateEdit).DropDownOpened, AddressOf DT_DropDownOpened
全局代码添加
Public Sub DT_DropDownOpened(ByVal Sender As Object, ByVal e As EventArgs)sender.Value = Date.NowEnd Sub