以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]给日期输入框赋初始值怎么做？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=89935)

--  作者：adidas5241 --  发布时间：2016/9/1 16:41:00 --  [求助]给日期输入框赋初始值怎么做？ 在查询窗体中，设置了两个日期输入框，我想把当月1日赋给日期1，当月最后一天或者当日赋给日期2，下面的代码报错 Dim y As Integer = Date.Today.Year Dim m As Integer = Date.Today.Month Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1") Dim dt2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2") \'dt1.Value = Date(y,m,1) \'dt2.Value = Date(y,m,Date.DaysInMonth(y,m)) Tables("销货订单").filter = ""

--  作者：有点蓝 --  发布时间：2016/9/1 17:00:00 --   dt1.Value = new Date(y,m,1) dt2.Value = new Date(y,m,Date.DaysInMonth(y,m))

--  作者：adidas5241 --  发布时间：2016/9/2 16:05:00 --   非常感谢有点蓝老师指点！