各位老师，写了下面代码，想要加载某一天的数据，但是加载不出来。时间列是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
加好友 
发短信
Post By：2015/10/27 9:32:00 [只看该作者]
