专家坐堂-[求助][讨论]请大大们看一下这个代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助][讨论]请大大们看一下这个代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51687)

--  作者：zyqzyy
--  发布时间：2014/5/31 15:46:00
--  [求助][讨论]请大大们看一下这个代码

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



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

--  作者：zyqzyy
--  发布时间：2014/5/31 23:50:00
--
大们都过节去了！

--  作者：don
--  发布时间：2014/6/1 7:03:00
--

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

--  作者：zyqzyy
--  发布时间：2014/6/1 11:47:00
--

谢谢！

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

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

--  作者：zyqzyy
--  发布时间：2014/6/1 11:49:00
--

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

此主题相关图片如下：自定义用户管理问题1.jpg

[此贴子已经被作者于2014-6-1 11:53:35编辑过]

--  作者：狐狸爸爸
--  发布时间：2014/6/3 9:30:00
--

自定义用户管理的话，应该是_UserGroup和_UserName

帮助很贴心：

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

后面一大段总结，就是讲这个的。