以文本方式查看主题

-  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=152880)
--  作者：susanhe
--  发布时间：2020/7/24 12:33:00
--  [求助] 窗口控件日期设定
老师，如图。
图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看

如何设定截止日期默认在开始日期控件上自动加上1个月。
--  作者：zoyong
--  发布时间：2020/7/24 12:41:00
--  
Dim d As Date = 开始日期
结束日期 = d.addmonths(1)
--  作者：linyunu1
--  发布时间：2020/7/24 13:07:00
--  
DateTimePicker1控件 ValueChanged事件
Dim d As Date = e.Sender.Value
e.Form.Controls("DateTimePicker2").Value = d.addmonths(1)
--  作者：susanhe
--  发布时间：2020/7/25 18:56:00
--  
老师


帮忙指点下面的，谢谢。

Dim d As Date = e.Sender.Value
e.Form.Controls("DateTimePicker3").Value = d.adddays(e.Form.Controls("DateTimePicker1").Value - e.Form.Controls("DateTimePicker2").Value)
--  作者：linyunu
--  发布时间：2020/7/25 21:22:00
--  
Dim d1 As Date = e.Form.Controls("DateTimePicker1").Value
Dim d2 As Date = e.Form.Controls("DateTimePicker2").Value
Dim t As TimeSpan = d1 - d2
Dim dt As Date = e.Sender.Value
e.Form.Controls("DateTimePicker3").Value = dt.AddDays(t.TotalDays)