以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于生成报表的权限  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148683)

--  作者:nazi3729
--  发布时间:2020/4/13 12:05:00
--  [求助]关于生成报表的权限
两个不同的用户组,如何限制某一个用户组某个表的生成报表功能?(比如两个用户组,都需要编辑一个表,因为设置了隐藏权限,所以只能看见自己的列,但是生成报表会暴露隐藏列)
[此贴子已经被作者于2020/4/14 0:22:34编辑过]

--  作者:有点蓝
--  发布时间:2020/4/13 12:10:00
--  
怎么生成报表的?如果是execl模板,针对不同组设计不同的模板调用
--  作者:nazi3729
--  发布时间:2020/4/13 12:35:00
--  
excel 模板,生成两个表,不同用户组限定打开指定表,模板调用的使用指南在哪?
--  作者:nazi3729
--  发布时间:2020/4/13 12:38:00
--  
报表事件里面吗?


--  作者:有点蓝
--  发布时间:2020/4/13 13:40:00
--  
参考:http://www.foxtable.com/webhelp/topics/1145.htm

也可以根据用户组删除不能看的sheet:http://www.foxtable.com/webhelp/topics/1465.htm

--  作者:nazi3729
--  发布时间:2020/4/13 15:39:00
--  
搞了半天不行,能力属于菜鸡级别,求老师指点
“表A” ,  用户组  “AA”、“BB”  ,   Excel 模板:  “模板1”、“模板2”,两个模板只有一个表“sheet1”
实现:“AA” 只能使用“模板1”,“BB”只能使用“模板2”




--  作者:有点蓝
--  发布时间:2020/4/13 16:25:00
--  
dim s as string
if user.group = "aa" then
s = "模板1"
elseif user.group = "bb" then
s = "模板2"
eles
return
end if

Dim
 Book As New XLS.Book(ProjectPath & "Attachments\\" & s & ".xls")
Dim
 fl As String = ProjectPath & "Reports\\出库单.xls"
Book
.Build() \'生成细节区
Book
.Sheets(0).Rows.RemoveAt(0\'删除第一行,Excel报表的第一行通常是标记行
Book
.Save(fl) \'保存工作簿
Dim
 Proc As New Process \'打开工作簿
Proc
.File = fl
Proc
.Start()
--  作者:nazi3729
--  发布时间:2020/4/14 0:07:00
--  
不行啊
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

[此贴子已经被作者于2020/4/14 0:48:32编辑过]

--  作者:有点蓝
--  发布时间:2020/4/14 9:07:00
--  
不是在报表事件处理的。新建一个窗口,添加一个按钮,到按钮事件写代码
--  作者:nazi3729
--  发布时间:2020/4/14 9:19:00
--  
哦谢谢