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

例子如上

打开窗口1，点开“选择”列下拉窗口，然后打开窗口2，继而返回窗口1，再次点开“选择”列下拉窗口，然后就出现了报错，“无法访问已经释放的对象！”

求解，这种现象该怎么解决？

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

点击浏览该文件:管理项目4.rar

有没有哪位老师知道，上面的情况该怎么解决？

还有一个问题，怎么在窗口中调用系统命令中的直接打印命令，在帮助文件系统命令中未找到。

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

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

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

代码如下：

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

明白了！

有点甜老师，有一个问题，我传上来的例子是没有数据库的，可是实际情况中是在数据库读取数据，用的ACCESS数据库，修改代码之后，就出现了报错。

Microsoft Jet 数据库引擎找不到输入表或查询 '~TMPCLP会员信息表'。 确定它是否存在，以及它的名称的拼写是否正确。