Foxtable(狐表) → 用户栏目 → 专家坐堂 → 日期输入框相加


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

主题：日期输入框相加
帅哥哟，离线，有人找我吗？
deliangzhaoe
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：364 积分：3491 威望：0 精华：0 注册：2012/7/24 7:15:00 		日期输入框相加  发帖心情 Post By：2019/3/6 14:06:00 [显示全部帖子]

有日期输入框、组合框、日期输入框2，日期输入框2=日期输入框+组合框，在组合框设置了代码：

Dim rq As Date = e.Form.controls("DateTimePicker1").value
Dim zq As Integer = e.Form.controls("检测周期").value
Dim xc As Date = e.Form.controls("DateTimePicker2").value
If rq = "" AndAlso zq = "" Then
    xc = ""
Else
    xc = rq.adddays("zq")
End If

请老师帮忙修改一下代码。谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
deliangzhaoe
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：364 积分：3491 威望：0 精华：0 注册：2012/7/24 7:15:00 		  发帖心情 Post By：2019/3/6 14:30:00 [显示全部帖子]

没计算出来。
代码还有问题吧
 回到顶部
帅哥哟，离线，有人找我吗？
deliangzhaoe
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：364 积分：3491 威望：0 精华：0 注册：2012/7/24 7:15:00 		  发帖心情 Post By：2019/3/6 14:58:00 [显示全部帖子]

谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
deliangzhaoe
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：364 积分：3491 威望：0 精华：0 注册：2012/7/24 7:15:00 		  发帖心情 Post By：2019/3/6 14:58:00 [显示全部帖子]

谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
deliangzhaoe
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：364 积分：3491 威望：0 精华：0 注册：2012/7/24 7:15:00 		  发帖心情 Post By：2019/3/6 15:46:00 [显示全部帖子]

1.表“安全设施台账”中有列“检测情况”和“下次检测日期”，列“检测情况”设置了单元格按钮，点击按钮打开窗口“新增安全设施检测记录”，表“安全设施检测记录”的datacolchanged设置了如下代码：
'安全设施表中自动填入下次检验日期
If e.DataCol.Name = "下次检测日期" Then
    Dim dr As Row = vars("安全设施").current
    If e.DataRow.isnull("下次检测日期") Then
        dr("下次检测日期") = Nothing
    Else
        dr("下次检测日期") = e.DataRow("下次检测日期")
    End If
End If
根据窗口“新增安全设施检测记录”中的下次检测日期，自动填入安全设施台账中的下次检测日期
2.窗口“安全设施检测记录”中增加了“快速添加安全设施检测记录”的按钮，窗口绑定表“安全设施检测记录”，通过快速添加安全设施检测记录窗口添加的下次检测日期与上面的代码冲突，怎么改一下能通用？

表安全设施台账实际有好多个表，如计量表类台账、检测报警类台账、安全阀类台账等
[此贴子已经被作者于2019/3/6 15:49:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
deliangzhaoe
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：364 积分：3491 威望：0 精华：0 注册：2012/7/24 7:15:00 		  发帖心情 Post By：2019/3/6 19:58:00 [显示全部帖子]

改好了，在窗口的关闭按钮中设置了代码

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06055 秒, 5 次数据查询