主题：如何禁用文件管理器的删除按钮

' 表事件:CurrentChanged

' 选择不同数据行后执行,也就是Current属性发生变化后执行.

If e.Table.Current Is Nothing Then '如果Current为Nothing

    Return '则返回

End If

Dim T As Table = E.Table

Dim Fl As WinForm.FileManager = T.Cols("附件").FileManager

Fl.AddCommand.ENABLED = True        ':增加

Fl.AddFolderCommand.ENABLED = False  ':目录

Fl.DeleteCommand.ENABLED = False     ':删除

Fl.ClearCommand.ENABLED = False     ':清除

Fl.OpenCommand.ENABLED = True     ':打开

Fl.ManagerCommand.ENABLED = True     ':管理

Fl.SaveAsCommand.ENABLED = False     ':另存

Fl.ConnectCommand.ENABLED = True     ':重连

不起作用