主题：二次筛选求助

保存一个文件如果没有文件名，在window系统中你是什么也得不到的嘛，当然要制定一个文件名的。

保存	Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1") Dim fn As String = ProjectPath & "Product.foxtr" tr.Save(fn)

这个就是保存按钮的代码，狐爸让你打开的时候将‘fn’保存在变量中，保存的时候tr.save(变量）。

做个例子上来看看。

 

怎么搞不定？是保存不了吗？ 把你做的发上来看看嘛，难道你的比http://help.foxtable.com/index.html?n=1988.htm 更出色？

或者说你的保存代码是···？ 可以列出来嘛。 我测试前面的保存代码是可以的呀。

试过了，没任何问题。

增加一个全局变量：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)