以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树加载了统计值后的加载代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61805)
--  作者：tesia255
--  发布时间：2014/12/19 15:35:00
--  目录树加载了统计值后的加载代码
目录树已经成功加载了统计值 

在目录树的  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
--  作者：有点甜
--  发布时间：2014/12/19 15:47:00
--  
 节点的Text属性变而已，但是节点的Name属性不变啊。
--  作者：狐狸爸爸
--  发布时间：2014/12/19 16:03:00
--  
如果你是自动生成的目录树，别忘记DataRow属性：
http://www.foxtable.com/help/topics/2689.htm
http://www.foxtable.com/help/topics/2741.htm
--  作者：tesia255
--  发布时间：2014/12/19 16:08:00
--  回复：（有点甜） 节点的Text属性变而已，但是节...
哦~~

谢谢~~
--  作者：tesia255
--  发布时间：2014/12/19 16:08:00
--  回复：（狐狸爸爸）如果你是自动生成的目录树，别忘记...
好的 好的  谢谢