目录树已经成功加载了统计值
在目录树的 NodeMouseDoubleClick 事件中写了如下代码 报错了：
因为目录树的节点名称是变化的，所以考虑用【Contains】函数 ，但是报错：未将对象引用设置到对象的实例。
Select Case e.Node.Level
Case 0
If e.node.Text.Contains("所有")
Filter = ""
End If
If e.node.Text.Contains("年")
Dim d1 As String
Dim d2 As String
d1 = Year & "/1/1"
d2 = Year & "/12/31"
Filter = "UPDATE_TIME >= TO_DATE('"& d1 &"','YYYY/MM/DD') And UPDATE_TIME <= TO_DATE('"& d2 &"','YYYY/MM/DD') "
End If
End Select
With DataTables("ONLINE_ORDER")
.LoadFilter = Filter
.LoadPage = 0
.LoadTop = 50
.Load()
End With
加好友 
发短信
Post By：2014/12/19 15:35:00 [显示全部帖子]
