主题：[求助][讨论]请大大们看一下这个代码

这段代码 没有实现想要的效果（普通用户分组 列窗口下面的按钮只显示两个）

If  user.Group = "普通用户"    'UserTypeEnum.User
Tables("文件表").Cols("附件").OpenWindow()
    Dim fl As WinForm.FileManager = Tables("文件表").Cols("附件").FileManager
    Dim f As WinForm.FileManager = Tables("文件表").Cols("呈阅卡").FileManager
    fl.DeleteCommand.Visible = False
    fl.ClearCommand.Visible = False
    fl.AddFolderCommand.Visible = False
    fl.ManagerCommand.Visible = False
    fl.SaveAsCommand.Visible = False
    fl.ConnectCommand.Visible = False
    fl.AddCommand.Visible = True
Tables("文件表").Cols("呈阅卡").OpenWindow()   
    f.DeleteCommand.Visible = False
    f.ClearCommand.Visible = False
    f.AddFolderCommand.Visible = False
    f.ManagerCommand.Visible = False
    f.SaveAsCommand.Visible = False
    f.ConnectCommand.Visible = False
    f.AddCommand.Visible = True
Else
    Dim fl As WinForm.FileManager = Tables("文件表").Cols("附件").FileManager
    Dim f As WinForm.FileManager = Tables("文件表").Cols("呈阅卡").FileManager
Tables("文件表").Cols("附件").OpenWindow()
    fl.DeleteCommand.Visible = True
    fl.ClearCommand.Visible = True
    fl.AddFolderCommand.Visible = True
    fl.ManagerCommand.Visible = True
    fl.SaveAsCommand.Visible = True
    fl.ConnectCommand.Visible = True
fl.AddCommand.Visible = True
Tables("文件表").Cols("呈阅卡").OpenWindow()
    f.DeleteCommand.Visible = True
    f.ClearCommand.Visible = True
    f.AddFolderCommand.Visible = True
    f.ManagerCommand.Visible = True
    f.SaveAsCommand.Visible = True
    f.ConnectCommand.Visible = True
    f.AddCommand.Visible = True
   
End If

谢谢！

弄清楚了：在Foxtable内置的用户管理器运行正常，在下面这个自定义用户管理运行不正常，认真思索中.....

http://www.foxtable.com/help/topics/2048.htm

自定义用户管理存在的现象：