主题：[求助]文件权限

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

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

如果要修改存放目录，参考

http://www.foxtable.com/webhelp/scr/1506.htm

不能保存是什么意思？10楼代码不能控制不能保存？

这个没办法，无法限制的。

转换数据源，参考 http://www.foxtable.com/webhelp/scr/2297.htm

如果连不上数据源，肯定是不能用的了，因为数据都没有，怎么显示和提供操作？