- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何给日期赋空值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97177)
-- 发布时间：2017/3/7 16:04:00
-- 如何给日期赋空值
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
Select Case e.Path
Case "fc_table"
If e.PostValues("startdate")<>Nothing
vars("起始日期")=e.PostValues("startdate")
Else
vars("起始日期")="#1900-01-01#"
End If
If e.PostValues("enddate")<>Nothing
vars("截止日期")=e.PostValues("enddate")
Else
MessageBox.Show(1)
vars("截止日期") = Nothing
MessageBox.Show(2)
End If
两个输出框之间的日期变量如何赋空值？
此主题相关图片如下：无标题.png
-- 发布时间：2017/3/7 16:24:00
--
If e.PostValues("startdate")<>Nothing
vars("起始日期")=e.PostValues("startdate")
Else
vars("起始日期")="1900-01-01"
End If
If e.PostValues("enddate")<>Nothing
vars("截止日期")=e.PostValues("enddate")
Else
vars("截止日期") = "3000-01-01"
End If
这样可以达到目的。
-- 发布时间：2017/3/7 18:29:00
--
那你可以这样写
vars("aaa") = dbnull.value