以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]按钮固定增加年数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128520)
--  作者：hzpyj
--  发布时间：2018/12/9 15:33:00
--  [求助]按钮固定增加年数
求一行代码


图片点击可在新窗口打开查看此主题相关图片如下：snap1.jpg
图片点击可在新窗口打开查看

启用日期 输入完成后 根据保修时长按 1年 或 2年  增加值自动输入 “保修至” 列 内
 
--  作者：有点甜
--  发布时间：2018/12/9 15:42:00
--  

addYears即可，参考

 

http://www.foxtable.com/webhelp/scr/0258.htm

 
--  作者：hzpyj
--  发布时间：2018/12/9 15:53:00
--  
Dim d As Date = "DateTimePicker2"
Dim d1 As Date = d.AddYears(1) \'加上1年
Output.Show("DateTimePicker3" & d1)

显示 类型转换错误
[此贴子已经被作者于2018/12/9 16:27:33编辑过]
--  作者：有点甜
--  发布时间：2018/12/9 22:08:00
--  

这样处理

 

Dim d As Date = e.form.controls("DateTimePicker2").Value
Dim d1 As Date = d.AddYears(1) \'加上1年
 
e.form.controls("DateTimePicker3").Value = d1