黄色部分还没有解决?该怎么办?
希望实现如果登录人是开发都则所有按钮都可以使用并打开初始目录,如果不是,则只能使用部分按按钮并且只能到指定根目录。
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