主题：多文件管理怎么按用户限制

这个例子中资料清单使用了内置文件管理器和设计资料清单窗口用来管理文件，目的是想不同的用户能够打开不同的远程目录，并且根据权限使用增加、目录、打开、删除等命令？

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

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

If User.Name = "开发者" Then
    If e.DataCol.name = "清单存放" Then
        Tables("资料清单").Cols("清单存放").OpenWindow
        Tables("资料清单").Cols("清单存放").FileManager.FTPclient.RootDir ="/" & e.DataRow("客户名称") & "/" & e.DataRow("档案类别")
    End If
End If

例子在资料清单中，希望实现如果登录人是开发都则所有按钮都可以使用并打开初始目录，如果不是，则只能使用部分按按钮并且只能到指定根目录。现在有两个问题：一是打开增加时提示     .NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.6.10.1
错误所在事件：资料清单,BeforeAddFile
详细错误信息：
未将对象引用设置到对象的实例。
二是怎么打开指定文件但是不下载到本地电脑。

请示帮助。 

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

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

Dim drftp As FTPclient = Tables("资料清单").Cols("清单存放").FileManager.FTPclient

黄色部分还没有解决？该怎么办？

希望实现如果登录人是开发都则所有按钮都可以使用并打开初始目录，如果不是，则只能使用部分按按钮并且只能到指定根目录。

Dim drftp As FTPclient = DataTables("资料清单").dataCols("清单存放").FTPclient
If User.Name = "开发者" Then
    If e.DataCol.name = "清单存放" Then
        'Tables("资料清单").Cols("清单存放").OpenWindow
        'Dim pth As String = "/" & e.DataRow("客户名称") & "/" & e.DataRow("档案类别")
        'If FileSys.DirectoryExists(pth) Then
            'e.Path = pth
        'End If
        ''
        'Tables("资料清单").Cols("清单存放").FileManager.FTPclient.RootDir ="/" & e.DataRow("客户名称") & "/" & e.DataRow("档案类别")
        drftp.RootDir ="/" & e.DataRow("客户名称") & "/" & e.DataRow("档案类别")
        drftp.UploadEnabled =True
        drftp.DownloadEnabled =True
        drftp.RenameEnabled =True
        drftp.DeleteEnabled =True
        drftp.MakerDirEnabled =True
        drftp.OpenFileEnabled =True
    End If
Else
    If e.DataCol.name = "清单存放" Then
        Tables("资料清单").Cols("清单存放").OpenWindow
        'drcol.FileManager.FTPclient.RootDir ="/" & e.DataRow("客户名称") & "/" & e.DataRow("档案类别")
        drftp.RootDir ="/" & e.DataRow("客户名称") & "/" & e.DataRow("档案类别")
        drftp.UploadEnabled =False
        drftp.DownloadEnabled =False
        drftp.RenameEnabled =False
        drftp.DeleteEnabled =False
        drftp.MakerDirEnabled =False
        drftp.OpenFileEnabled =False
    End If
End If

drftp.RootDir ="/"

 

'Dim pth As String = "/" & e.DataRow("客户名称") & "/" & e.DataRow("档案类别")
        'If FileSys.DirectoryExists(pth) Then
            'e.Path = pth
        'End If

可以直接打开初始目录，减少查找的时间？

 你说的初始目录指什么指定RootDir不就行了？

 

drftp.RootDir ="/"

29楼说的是根目录，无法再向上查，只能向