以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]文件权限  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117578)
--  作者：q2520
--  发布时间：2018/4/15 10:25:00
--  [求助]文件权限
If e.DataCol.Name = "列名" Then
 Dim fn As String = "C:\\Temp\\" & FileSys.GetName(e.Filename) \'新的文件名和路径
 FileSys.CopyFile(e.FileName, fn) \'复制文件
e.FileName = fn \'指定要打开的文件为新复制的文件
End If


这个代码 我修改了列名  直接复制用的为什么不行   总是提示找不到文件  
--  作者：有点甜
--  发布时间：2018/4/15 11:00:00
--  

试试改成这样，弹出什么？

 

If e.DataCol.Name = "列名" Then
    msgbox(e.fileName)
    Dim fn As String = "C:\\Temp\\" & FileSys.GetName(e.Filename) \'新的文件名和路径
    FileSys.CopyFile(ProjectPath & "\\" & e.FileName, fn) \'复制文件
    e.FileName = fn \'指定要打开的文件为新复制的文件
End If
--  作者：nxdx112
--  发布时间：2018/4/15 11:32:00
--  
(ProjectPath & "\\" & e.FileName, fn) \'
可以打开，单好像报错，默认好像在项目的根目录，这一句的路径如何修改为其他目录？
--  作者：有点甜
--  发布时间：2018/4/15 12:24:00
--  

比如改成

 

FileSys.CopyFile(ProjectPath & "attachments\\" & e.FileName, fn) \'复制文件

[此贴子已经被作者于2018/4/15 12:24:23编辑过]
--  作者：q2520
--  发布时间：2018/4/15 14:31:00
--  
错误是不提示了   但是效果不是我要的那种 
我希望是  只能看 不能修改里面的内容          这种好像是把文件给替换了    修改保存以后   内容还是改了   只是原文件确实没改动  但是别人看的时候 就不是原文件了   还是不太完美
--  作者：有点甜
--  发布时间：2018/4/15 15:45:00
--  

你要这个？

 

If e.DataCol.Name = "列名" Then
    Dim finfo As new FileInfo(ProjectPath & "attachments\\" & e.FileName)
    finfo.ReadOnly = False
    e.FileName = fn

End If
--  作者：q2520
--  发布时间：2018/4/15 16:51:00
--  
我想要的效果是       哪个部门上传的文件   只有那个部门可以修改  文件内容     其他部门的只能看 不能修改
--  作者：有点甜
--  发布时间：2018/4/15 16:57:00
--  

加上部门列判断，如

 

Dim fn = ProjectPath & "attachments\\" & e.FileName
If e.DataCol.Name = "列名" Then   
    If e.DataRow("部门") <> user.Group Then
        Dim finfo As new FileInfo(fn)
        finfo.ReadOnly = True
        e.FileName = fn       
    Else       
        Dim finfo As new FileInfo(fn)
        finfo.ReadOnly = False
        e.FileName = fn       
    End If
   
End If

 

[此贴子已经被作者于2018/4/15 17:03:53编辑过]
--  作者：q2520
--  发布时间：2018/4/15 17:00:00
--  
错误   未声明名称 fn
--  作者：有点甜
--  发布时间：2018/4/15 17:02:00
--  

Dim fn = ProjectPath & "attachments\\" & e.FileName
If e.DataCol.Name = "列名" Then   
    If e.DataRow("部门") <> user.Group Then
        Dim finfo As new FileInfo(fn)
        finfo.ReadOnly = True
        e.FileName = fn       
    Else       
        Dim finfo As new FileInfo(fn)
        finfo.ReadOnly = False
        e.FileName = fn       
    End If
   
End If