Tables("附件表").Cols("文件").OpenWindow()
Dim fm As WinForm.FileManager = Tables("附件表").Cols("文件").FileManager
If user.Name = "管理员" Then
fm.DeleteCommand.Enabled = True
fm.ClearCommand.Enabled = True
....
.....
Else
fm.DeleteCommand.Enabled = False
fm.ClearCommand.Enabled = False
.....
.....
End If