主题：如何给日期赋空值

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

        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

 

 

这样可以达到目的。

 那你可以这样写

 

vars("aaa") = dbnull.value