| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 备注列权限控制 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192908) |
| -- 作者：15666282205 -- 发布时间：2024/7/31 18:24:00 -- 备注列权限控制 老师，我把表设置了编辑权限，可是备注列不受控制，应该怎么办？请您指导。下面是设置表的权限的代码 在startedit事件中 If user.name <> "董事长" Then If user.group <> "会计员" Then MessageBox.Show("对不起,您无权修改!") e.Cancel = True End If End If |
| -- 作者：有点蓝 -- 发布时间：2024/8/1 8:27:00 -- 代码放到prepareedit事件 |
| -- 作者：15666282205 -- 发布时间：2024/8/1 10:24:00 -- 老师，放在这里不行，成无限循环了。 |
| -- 作者：有点蓝 -- 发布时间：2024/8/1 10:34:00 -- 去掉MessageBox.Show |
| -- 作者：15666282205 -- 发布时间：2024/8/1 10:43:00 -- 老师，这样不是循环了，但是也没有提示了。还有一个问题，如果备注列只有字符，那么可控制了；但是我设置的备注列是多文件的，点击方块打开文件管理器，管理器下面有增加等选项，我需要控制这几个选项，也就是说需要编辑文件管理器，怎么弄？ |
| -- 作者：有点蓝 -- 发布时间：2024/8/1 10:54:00 -- 如果在prepareedit锁定列，是无法点击方块打开文件管理器的。 如果是列窗口的文件管理器，参考这里处理：http://www.foxtable.com/webhelp/topics/2469.htm
|
| -- 作者：15666282205 -- 发布时间：2024/8/1 11:04:00 -- 老师，下面的代码放在哪里？我放在窗口的aferload事件中没有作用。 Dim fl As WinForm.FileManager = Tables("员工").Cols("附件").FileManager fl.DeleteCommand.Enabled = False fl.ClearCommand.Enabled = False |
| -- 作者：有点蓝 -- 发布时间：2024/8/1 11:11:00 -- AfterOpenProject事件。文件列窗口要设置为默认不打开 |
| -- 作者：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
|
| -- 作者：有点蓝 -- 发布时间：2024/8/1 11:29:00 -- 这个是设置文件列窗口。而不是设置点击方块打开的文件管理器的，点击方块打开的文件管理器是无法控制的 |