| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 日期输入框相加 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131776) |
| -- 作者：deliangzhaoe -- 发布时间：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 请老师帮忙修改一下代码。谢谢
|
| -- 作者：y2287958 -- 发布时间：2019/3/6 14:23:00 -- 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 = Nothing AndAlso zq = Nothing Then xc = Nothing Else xc = rq.adddays(zq) End If |
| -- 作者：deliangzhaoe -- 发布时间：2019/3/6 14:30:00 -- 没计算出来。 代码还有问题吧
|
| -- 作者：有点甜 -- 发布时间：2019/3/6 14:30:00 -- Dim rq As Date = e.Form.controls("DateTimePicker1").value
Dim zq As Integer = e.Form.controls("检测周期").value
If rq = nothing andalso zq = nothing Then
e.Form.controls("DateTimePicker2").value = nothing
Else
e.Form.controls("DateTimePicker2").value = rq.adddays(zq)
End If
|
| -- 作者：deliangzhaoe -- 发布时间：2019/3/6 14:58:00 -- 谢谢 |
| -- 作者：deliangzhaoe -- 发布时间：2019/3/6 14:58:00 -- 谢谢 |
| -- 作者：deliangzhaoe -- 发布时间：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编辑过]
|
| -- 作者：有点甜 -- 发布时间：2019/3/6 16:03:00 -- 你思路不正确。代码不应该写到datacolchanged事件。
你既然是在窗口里面赋值，那就把赋值代码写到窗口里面去。 |
| -- 作者：deliangzhaoe -- 发布时间：2019/3/6 19:58:00 -- 改好了，在窗口的关闭按钮中设置了代码 |