主题：加载当天的数据

如查设一个全局代码 today.

怎样保持不重启系统

也是最新的日期。

 '读取SQL服务器时间

            Dim today As Date

            Dim cmd As New SQLCommand

            cmd.ConnectionName = cn

            cmd.CommandText = "Select GetDate()"

            Today = cmd.ExecuteScalar()

Dim bjf() As String = {" ="," = "," like "," = "," = "," = ",">=","<=",">=","<="}
Dim fds() As String = {"仓库名称","入库原因","配件名称","配件代码","供应商名称","送货单号","入库日期","入库日期","数量","数量"}
Dim tpf() As String = {"","","%","","","","","","",""}
Dim filter As String
For i As Integer = 0 To nms.Length - 1
    If e.Form.Controls(nms(i)).text <> Nothing Then
        If filter > "" Then
            filter = filter & " And "
        End If
        If fds(i) = "入库日期" AndAlso bjf(i) = "<=" Then
            filter = filter & fds(i) & bjf(i) & sps(i) & tpf(i) & e.Form.Controls(nms(i)).value.adddays(1) &tpf(i) & sps(i)
        Else
            filter = filter & fds(i) & bjf(i) & sps(i) & tpf(i) & e.Form.Controls(nms(i)).value &tpf(i) & sps(i)
        End If
        MessageBox.show(filter)
    End If
Next
DataTables("配件入库明细").LoadFilter = filter
DataTables("配件入库明细").Load()