- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于日期控件leave事件错误提示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194372)
-- 发布时间：2024/12/3 21:25:00
-- 关于日期控件leave事件错误提示
在日期控件的leave事件中写了如下代码：老是弹出错误提示哪错了
Dim bdrq As Date=e.Form.Controls("zhuceriqiDateTimePicker").text
Dim zqrq As Date
If e.Form.Controls("zhuceriqiDateTimePicker")<> Nothing Then
zqrq =bdrq.AddDays(90)
e.Form.Controls("VIPlingquriqiDateTimePicker").text =zqrq
Else
Return
End If
此主题相关图片如下：screenshot_20241203_211806.png
-- 发布时间：2024/12/3 21:47:00
--
if e.sender.value <> nothing then
e.Form.Controls("VIPlingquriqiDateTimePicker").value=e.sender.value.AddDays(90)
end if
-- 发布时间：2024/12/3 22:01:00
--
这样操作如果是空值的时候还是弹出错误提示
-- 发布时间：2024/12/3 22:12:00
--
我测试没有问题