以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  备注列权限控制  (http://foxtable.net/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事件中没有作用。

Tables("员工").Cols("附件").OpenWindow()
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
--  
这个是设置文件列窗口。而不是设置点击方块打开的文件管理器的,点击方块打开的文件管理器是无法控制的