[文件名称]列用列扩展属性链接文件,锁表后[文件名称]列右边的按钮不见了,不能打开链接的文件。锁表(保护表不被普通用户编辑)后,右边的按钮应该能打开文件,插入和清除失效,否则,只能进行个人文件管理,不能在局域网安全共享。有什么方法吗?
以下是引用狐狸爸爸在2009-12-6 13:12:00的发言:
改为用PrepareEdit事件禁止编辑。
只要不能编辑,右边的按钮就不见了
以下是引用实话实说在2009-12-6 13:45:00的发言:
只要不能编辑,右边的按钮就不见了
个人认为,既然是锁定表,扩展属性的按钮不能打开链接是可以理解的,因为这些操作、事件隶属于该表,如果贺老师能够单独把这个右边按钮解放出来,锁定表后允许操作,那当然是好事,如果不行,窗口设置专门按钮,调用当前行的链接字符串,代码打开链接的文件!
代码打开链接文件方案应该可行,普通用户选定要打开的文件,通过专门按钮打开。管理员通过解锁表编辑链接,能给个打开链接文件的代码吗?
[此贴子已经被作者于2009-12-6 14:40:01编辑过]
以下是引用实话实说在2009-12-6 14:40:00的发言:
代码打开链接文件方案应该可行,普通用户选定要打开的文件,通过专门按钮打开。管理员通过解锁表编辑链接,能给个打开链接文件的代码吗?
[此贴子已经被作者于2009-12-6 14:40:01编辑过]
Dim Proc As New Process '定义一个新的Process
Proc.File = CurrentTable.Current("文件路径列名称") '指定要打开的文件
Proc.Start()
有点小问题:编辑了文件链接后不能当时打开文件(提示路径错误),退出在进入项目后正常。是不是与下面代码有关:
表属性DrawCell事件
if e.Col.Name = "名称" Then
if e.Text.IndexOf("\") > 0 Then
e.text = e.text.SubString(e.Text.LastIndexOf("-:special:1:-)+1)
End If
End If
以上代码是为了去掉长长的路径名。另外,屏蔽了自动复制文件属性,改为在项目目录下不同的文件夹链接文件。
以下是引用实话实说在2009-12-6 16:34:00的发言:
有点小问题:编辑了文件链接后不能当时打开文件(提示路径错误),退出在进入项目后正常。是不是与下面代码有关:
表属性DrawCell事件
if e.Col.Name = "名称" Then
if e.Text.IndexOf("\") > 0 Then
e.text = e.text.SubString(e.Text.LastIndexOf("-:special:1:-)+1)
End If
End If
以上代码是为了去掉长长的路径名。另外,屏蔽了自动复制文件属性,改为在项目目录下不同的文件夹链接文件。
事件对吗?或者打开文件的代码前面执行一下load试试(同步一下当前行)
试了一下也不行,不过已经很满意了,切换一下用户就行了。