备注列权限控制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 备注列权限控制

共有2581人关注过本帖树形打印复制链接主题：备注列权限控制

15666282205

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：540 积分：4275 威望：0 精华：0 注册：2019/1/13 10:12:00

备注列权限控制 发帖心情

Post By：2024/7/31 18:24:00 [只看该作者]

老师，我把表设置了编辑权限，可是备注列不受控制，应该怎么办？请您指导。下面是设置表的权限的代码

在startedit事件中

If user.name <> "董事长" Then

If user.group <> "会计员" Then

MessageBox.Show("对不起,您无权修改!")

e.Cancel = True

End If

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/1 8:27:00 [只看该作者]

代码放到prepareedit事件

15666282205

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：540 积分：4275 威望：0 精华：0 注册：2019/1/13 10:12:00

Post By：2024/8/1 10:24:00 [只看该作者]

老师，放在这里不行，成无限循环了。

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/1 10:34:00 [只看该作者]

去掉MessageBox.Show

15666282205

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：540 积分：4275 威望：0 精华：0 注册：2019/1/13 10:12:00

Post By：2024/8/1 10:43:00 [只看该作者]

老师，这样不是循环了，但是也没有提示了。还有一个问题，如果备注列只有字符，那么可控制了；但是我设置的备注列是多文件的，点击方块打开文件管理器，管理器下面有增加等选项，我需要控制这几个选项，也就是说需要编辑文件管理器，怎么弄？

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/1 10:54:00 [只看该作者]

如果在prepareedit锁定列，是无法点击方块打开文件管理器的。

如果是列窗口的文件管理器，参考这里处理：http://www.foxtable.com/webhelp/topics/2469.htm

15666282205

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：540 积分：4275 威望：0 精华：0 注册：2019/1/13 10:12:00

Post By：2024/8/1 11:04:00 [只看该作者]

老师，下面的代码放在哪里？我放在窗口的aferload事件中没有作用。

Tables("员工").Cols("附件").OpenWindow()
Dim fl As WinForm.FileManager = Tables("员工").Cols("附件").FileManager
fl.DeleteCommand.Enabled = False
fl.ClearCommand.Enabled = False

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/1 11:11:00 [只看该作者]

AfterOpenProject事件。文件列窗口要设置为默认不打开

15666282205

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：540 积分：4275 威望：0 精华：0 注册：2019/1/13 10:12:00

Post By：2024/8/1 11:25:00 [只看该作者]

老师，我在项目事件的AfterOpenProject事件加了下面的代码，可是没有作用。我用的SQL数据库，下面的表默认加载，和这个有关系吗？

------------------------------------------------设置文件管理器--------------------------

Tables("规章制度表").Cols("规章制度文件").OpenWindow()

Dim fl As WinForm.FileManager = Tables("规章制度表").Cols("规章制度文件").FileManager

fl.DeleteCommand.Enabled = False

fl.ClearCommand.Enabled = False

有点蓝

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/1 11:29:00 [只看该作者]

这个是设置文件列窗口。而不是设置点击方块打开的文件管理器的，点击方块打开的文件管理器是无法控制的

下一主题 >> << 上一主题

总数 24 1 2 3 下一页

主题：备注列权限控制