主题：二次筛选求助

我是通过打开文件对话框打开目录树文件，不是通过窗体加载指定的代码。帮助中的目录树管理器与狐表自带的不一样，你运行以下就知道了，主要是“打开文件”和“保存”按钮代码。

试过了，没任何问题。

增加一个全局变量：trsave 字符型的：

 

打开：
Dim dlg As New OpenFileDialog

dlg.Filter= "foxtr文件|*.foxtr"   
If dlg.ShowDialog = DialogResult.Ok Then

    vars("trsave") = dlg.FileName
    Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
    Dim fn As String = dlg.FileName
    If Filesys.FileExists(fn) Then
        tr.Load(fn)
    End If
End If

 

保存：
Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim fn As String = vars("trsave")
tr.Save(fn)

你试过狐表自带的目录树编辑器？请帖出“保存”按钮的代码

看43楼，你就是不肯贴出你的代码来，真是的·····

 

你不会这样了吧：

Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim fn As String = ProjectPath & vars("trsave")     ‘这是错误的！！！
tr.Save(fn)

 按43楼写了"保存"代码,(也定义了全局变量)运行错误如图

 

文件是开发版的,所以没有上传.

 

 

 

 

此主题相关图片如下：snap1.jpg

谢谢mr725，已经搞定，原来狐爸给的打开文件按钮代码没有定义vars("trsave") = dlg.FileName

还是二次筛选问题，10楼代码

 

第一次加载目录树，默认没有选择节点，此时筛选只与文本框参数有关与目录树无关；
选定目录树节点后，再选择文本框筛选，正常；

问题：如何再回到目录树第一次加载时的状态（没有选择任何节点）实际使用时目录树始终在选择节点