主题：未将对象应用设置到对象的实例……求解！

更新以后已无报错，谢谢有点蓝老师！

各位老师，目前我有个设计，是按照帮助文件当中，可以多选的筛选树这一例子做成的目录树。

然后我想问一下，在哪里插入一段代码可以自定义一个空白节点，点击就能把值为空的这一列筛选出来？

代码如下：

Dim nms As String() = {"符合要求","大会","场次分类","上次活动日期"} '指定生成目录树的各列
Dim qts As String() = {"'","'","'","'"} '指定将各列的值括起来的符号,这里都是字符型,所以都是单引号
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
Dim nd As WinForm.TreeNode
For Each nd In e.node.allNodes '清除子节点的选中标记
    nd.Checked = False
Next
nd = e.Node.ParentNode
Do While nd IsNot Nothing '清除父节点的选中标记
    nd.Checked = False
    nd = nd.ParentNode
Loop
For Each nd In trv.AllNodes
    If nd.Checked  Then
        Dim rts() As String = nd.FullPath.Split("\")
        Dim val As String = ""
        For i As Integer = 0 To rts.length - 1
            If val > "" Then
                val = val & " And "
            End If
            val = val & nms(i) & " = " & qts(i) & rts(i) & qts(i)
        Next
        If flt > "" Then
            flt = flt & " Or (" & val & ")"
        Else
            flt = val
        End If
    End If
Next
Tables("会员信息表").Filter  = flt

抱歉，是我没表达清楚！

上面那段代码可以通过上次活动日期这一列的内容，自动生成节点，可是如果上次活动日期为空，在目录树中并无显示，我就是想新增一个节点，将这些空值的行也可以通过节点筛选出来。

例子已上传，麻烦有点蓝老师看一下，能不能再第三级日期节点上增加一个名为“空”的，能筛选出日期列为空值的节点！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.foxdb