标题：备注列权限控制

1楼

15666282205 发表于：2024/7/31 18:24:00

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

在startedit事件中

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

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

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

e.Cancel = True

End If

2楼

有点蓝 发表于：2024/8/1 8:27:00

代码放到prepareedit事件

3楼

15666282205 发表于：2024/8/1 10:24:00

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

4楼

有点蓝 发表于：2024/8/1 10:34:00

去掉MessageBox.Show

5楼

15666282205 发表于：2024/8/1 10:43:00

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

6楼

有点蓝 发表于：2024/8/1 10:54:00

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

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

7楼

15666282205 发表于：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楼

有点蓝 发表于：2024/8/1 11:11:00

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

9楼

15666282205 发表于：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楼

有点蓝 发表于：2024/8/1 11:29:00

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

共24 条记录, 每页显示 10 条, 页签: [1] [2][3]