Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m))
Dim Filters As String
Filters = "[项目名称] = '" & Vars("xmmc") & "'and 登记日期 >= '" & dt1 & "'and 登记日期 <= '" & dt2 & "'"
DataTables("资料收文登记表").LoadFilter = Filters
DataTables("资料收文登记表").Load()
我做了一个资料收文的窗口,在窗口的AFTER LOAD中写了上面一段代码,但是只能加载到本月19日的数据,19日以后输入的数据在窗口中不能加载,但能到服务器中查到输入的数据
求解!
谢谢!