Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]文件权限


  共有6334人关注过本帖树形打印复制链接

主题：[求助]文件权限
帅哥哟，离线，有人找我吗？
q2520
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		[求助]文件权限  发帖心情 Post By：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


这个代码 我修改了列名  直接复制用的为什么不行   总是提示找不到文件  
 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/4/15 14:31:00 [显示全部帖子]

错误是不提示了   但是效果不是我要的那种 
我希望是  只能看 不能修改里面的内容          这种好像是把文件给替换了    修改保存以后   内容还是改了   只是原文件确实没改动  但是别人看的时候 就不是原文件了   还是不太完美
 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/4/15 16:51:00 [显示全部帖子]

我想要的效果是       哪个部门上传的文件   只有那个部门可以修改  文件内容     其他部门的只能看 不能修改

 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/4/15 17:00:00 [显示全部帖子]

错误   未声明名称 fn

 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/4/15 18:44:00 [显示全部帖子]

要求达到了  不过有点不完美       
不是本部门的人  修改文件以后保存都保存到了\Attachments  这个文件夹可以修改吗     

如果能不保存是最好了  怎么弄
 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/4/15 22:39:00 [显示全部帖子]

权限管理可以控制不同组只能编辑自己部门的行   但是   多文件列  控制不了     你这个代码可解决这个问题
但是   别的部门可以编辑多文件列里的文件    修改数据以后  退出会提示另存       我的意思是  不想出保存的选择   直接退出取消修改     
 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/4/15 22:50:00 [显示全部帖子]

我现在 试用版 内部数据做的   如果你们给我转到开发版里    我弄好在把数据源做成外部的行吗？
还有  如果用SQL数据源   如果网络不好  连不上服务器  软件就一点都不能用了是吧     
 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/4/15 22:55:00 [显示全部帖子]

If e.Row("发文单位") <> User.Group Then 
    e.Cancel = True
End If


我用这个命令  开发者登录  也不能修改列了   
怎么样可以让开发者没有限制  
 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/4/15 23:02:00 [显示全部帖子]

If user.name <> "开发者" OrElse e.Row("发文单位") <> User.Group Then 
    e.Cancel = True
End If
这个命令    所有的用户都不能修改了
 回到顶部
帅哥哟，离线，有人找我吗？
q2520
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00 		  发帖心情 Post By：2018/4/15 23:06:00 [显示全部帖子]

找到说明了

[此贴子已经被作者于2018/4/15 23:14:25编辑过]
 回到顶部
总数 30 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询