在日期控件的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

if e.sender.value <> nothing then
e.Form.Controls("VIPlingquriqiDateTimePicker").value=e.sender.value.AddDays(90)
end if