以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]手动设计加载树问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133182)
--  作者：hawkgo
--  发布时间：2019/4/9 10:31:00
--  [求助]手动设计加载树问题
我发现不能添加附件，所以只有文字描述了：


在设置加载树的时候：

点击“所有订单”

 出现的错误为：未将对象引用设置到对象的实例。

而点击其他节点是有效的。

代码如下：
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
Dim Filter As String
Dim Year As Integer = dr("年")
Dim Month As Integer = dr("月")
Dim PL As String = dr("分类2")

If e.node.Text = "所有订单" Then
    Filter =" "
Else
   
    Select Case e.Node.Level
        Case 0
            Filter ="Year(创建时间) = " & Year
        Case 1
            Filter ="Year(创建时间) = " & Year & " And 分类2 = \'" & PL & "\'"
    End Select
End If
DataTables("订单信息").LoadFilter = Filter
DataTables("订单信息").Load()


这个问题第一次碰到！
[此贴子已经被作者于2019/4/9 10:35:04编辑过]
--  作者：有点甜
--  发布时间：2019/4/9 11:38:00
--  

Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
Dim Filter As String

If e.node.Text = "所有订单" Then
    Filter =" "
Else
    Dim Year As Integer = dr("年")
    Dim Month As Integer = dr("月")
    Dim PL As String = dr("分类2")
    Select Case e.Node.Level
        Case 0
            Filter ="Year(创建时间) = " & Year
        Case 1
            Filter ="Year(创建时间) = " & Year & " And 分类2 = \'" & PL & "\'"
    End Select
End If
DataTables("订单信息").LoadFilter = Filter
DataTables("订单信息").Load()
--  作者：hawkgo
--  发布时间：2019/4/9 19:23:00
--  
非常感谢！看来还是理解不够。