主题：[求助]文件权限

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

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

比如改成

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

你要这个？

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

End If

加上部门列判断，如

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