以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  如何实现打开窗口后日期框1，2显示当前年份月份的起止日期？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145948)

--  作者：lgz518 --  发布时间：2020/2/12 16:25:00 --  如何实现打开窗口后日期框1，2显示当前年份月份的起止日期？ 如何实现打开窗口后日期框1，2显示当前年份月份的起止日期？ Dim d1 As Date=e.Form.Controls("StartDate").Value Dim d2 As Date=e.Form.Controls("EndDate").Value  d1= New Date(Year,Month,1) \'获得该月第一天  d2= New Date(Year,Month,Date.DaysInMonth(Year,Month)) \'获得该月最后一天 上面代码有问题，如何修正？谢谢

--  作者：有点蓝 --  发布时间：2020/2/12 16:29:00 --   e.Form.Controls("StartDate").Value = New Date(Year,Month,1) e.Form.Controls("EndDate").Value = New Date(Year,Month,Date.DaysInMonth(Year,Month))

--  作者：lgz518 --  发布时间：2020/2/12 18:32:00 --   报错 此主题相关图片如下：起止日期报错.jpg

--  作者：有点蓝 --  发布时间：2020/2/13 9:04:00 --   e.Form.Controls("StartDate").Value = New Date(date.today.Year,date.today.YMonth,1)

--  作者：lgz518 --  发布时间：2020/2/13 12:48:00 --   还是报错 此主题相关图片如下：日期异常1.jpg

--  作者：有点蓝 --  发布时间：2020/2/13 13:31:00 --   月份单词写错了，自行改改

--  作者：lgz518 --  发布时间：2020/2/13 15:43:00 --   改了，还是报错 e.Form.Controls("StartDate").Value = New Date(date.today.Year,date.today.Month,1)

--  作者：有点蓝 --  发布时间：2020/2/13 16:05:00 --   我测试没有问题。提示什么错？

--  作者：lgz518 --  发布时间：2020/2/13 16:10:00 --   提示 此主题相关图片如下：日期报错.jpg

--  作者：有点蓝 --  发布时间：2020/2/13 16:18:00 --   同样的改法，参考7楼用法自行改改