以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何给日期框中加上指定时间  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90643)

--  作者:clchen
--  发布时间:2016/9/19 9:11:00
--  [求助]如何给日期框中加上指定时间
如何给日期框加上指定时间
如:下拉框选择的是“承兑”则日期框在当前时间加上半年的时间
     下拉框选择的是“支票”则日期日期框在当前时间加上十天的时间


--  作者:有点蓝
--  发布时间:2016/9/19 10:22:00
--  
http://www.foxtable.com/webhelp/scr/1337.htm


下拉框Textchanged事件

Select Case e.Sender.Text
    Case "承兑"
        e.Form.Controls("DateTimePicker1").value = Date.Now.AddMonths(6)
    Case "支票"
        e.Form.Controls("DateTimePicker1").value = Date.Now.AddDays(10)
End Select