| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]加载制定的某一天数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76331) |
| -- 作者：新航程小何 -- 发布时间：2015/10/27 9:32:00 -- [求助]加载制定的某一天数据 各位老师，写了下面代码，想要加载某一天的数据，但是加载不出来。时间列是2015/10/29 18:30 Dim year As String=e.Form.controls("ComboBox1").value Dim month As String=e.Form.controls("ComboBox2").value Dim day As String=e.Form.controls("ComboBox3").value Dim d1 As Date Dim d2 As Date Dim filter As String d1 = New Date(Year, Month, day) \'取得该月的第一天 d2 = new Date(Year, Month, day) Filter = "时间 >= \'" & d1 & "\'And 时间 <= \'" & d2 & "\' And 采集点地址=\'" & _ochard & "\'" DataTables("环境数据").loadtop="100 percent" DataTables("环境数据").loadFilter="" DataTables("环境数据").loadFilter = filter DataTables("环境数据").load |
| -- 作者：大红袍 -- 发布时间：2015/10/27 9:36:00 -- Filter = "时间 >= \'" & d1 & "\'And 时间 < \'" & d2.AddDays(1) & "\' And 采集点地址=\'" & _ochard & "\'" |
| -- 作者：mxm121 -- 发布时间：2015/10/27 9:37:00 -- d1 d2 是一样的 |