\' 表事件: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     \':重连

不起作用