Foxtable(狐表)用户栏目专家坐堂 → [求助]按钮固定增加年数


  共有1638人关注过本帖树形打印复制链接

主题:[求助]按钮固定增加年数

帅哥哟,离线,有人找我吗?
hzpyj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:63 积分:586 威望:0 精华:0 注册:2014/5/11 20:32:00
[求助]按钮固定增加年数  发帖心情 Post By:2018/12/9 15:33:00 [只看该作者]

求一行代码


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

启用日期 输入完成后 根据保修时长按 1年 或 2年  增加值自动输入 “保修至” 列 内
 

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/9 15:42:00 [只看该作者]

addYears即可,参考

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
hzpyj
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:63 积分:586 威望:0 精华:0 注册:2014/5/11 20:32:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部