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

Tables("员工").Cols("附件").OpenWindow()
Dim fl As WinForm.FileManager = Tables("员工").Cols("附件").FileManager
fl.DeleteCommand.Enabled = False
fl.ClearCommand.Enabled = False

上面的代码只对列窗口有效。不如做一个窗口，插入相关控件，在窗口的 afterload 加入代码控制。在表的CellButtonClick 事件调用。使用和内置的一样，感觉没什么差别。

如：

Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")
Dim r As Row = Tables("个人信息表").current
If r IsNot Nothing Then
    If User.IsRole("人事管理") Then
        fm.DeleteCommand.Visible = True
        fm.ClearCommand.Visible = True
        fm.ManagerCommand.Visible = True
        fm.AddFolderCommand.Visible = True
        fm.AddCommand.Visible = True
    Else
        fm.DeleteCommand.Visible = False
        fm.ClearCommand.Visible = False
        fm.ManagerCommand.Visible = False
        fm.AddFolderCommand.Visible = False
        fm.AddCommand.Visible = False
    End If
End If