日期输入框相加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有日期输入框、组合框、日期输入框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

请老师帮忙修改一下代码。谢谢

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

没计算出来。

代码还有问题吧

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

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

根据窗口“新增安全设施检测记录”中的下次检测日期，自动填入安全设施台账中的下次检测日期

2.窗口“安全设施检测记录”中增加了“快速添加安全设施检测记录”的按钮，窗口绑定表“安全设施检测记录”，通过快速添加安全设施检测记录窗口添加的下次检测日期与上面的代码冲突，怎么改一下能通用？

表安全设施台账实际有好多个表，如计量表类台账、检测报警类台账、安全阀类台账等

[此贴子已经被作者于2019/3/6 15:49:26编辑过]

你思路不正确。代码不应该写到datacolchanged事件。

你既然是在窗口里面赋值，那就把赋值代码写到窗口里面去。

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

主题：日期输入框相加