Dim t3 As Table = Tables("文件表")
Dim bn As Boolean = (user.Group <> "普通用户")
Dim fl As WinForm.FileManager = t3.Cols("附件").FileManager
Dim f As WinForm.FileManager = t3.Cols("呈阅卡").FileManager
t3.Cols("附件").OpenWindow()
t3.Cols("呈阅卡").OpenWindow()
fl.AddCommand.Visible = True
f.AddCommand.Visible = True
fl.DeleteCommand.Visible = bn
fl.ClearCommand.Visible = bn
fl.AddFolderCommand.Visible = bn
fl.ManagerCommand.Visible = bn
fl.SaveAsCommand.Visible = bn
fl.ConnectCommand.Visible = bn
f.DeleteCommand.Visible = bn
f.ClearCommand.Visible = bn
f.AddFolderCommand.Visible = bn
f.ManagerCommand.Visible = bn
f.SaveAsCommand.Visible = bn
f.ConnectCommand.Visible = bn
加好友 
发短信
Post By：2014/6/1 7:03:00 [显示全部帖子]
