以文本方式查看主题

-  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=74564)

--  作者:yekong2002
--  发布时间:2015/9/14 11:22:00
--  [求助] 复制表
想复制表,并且复制里面的代码,单元格格式等。就是要复制一模一样的。目的:是单位里有几个部门都是需要一样的,但是数目很多。有什么好的办法吗
--  作者:大红袍
--  发布时间:2015/9/14 11:24:00
--  
表设计有问题。公用一个表,加入部门列区分。需要生成某部门,就动态生成查询/临时表。
--  作者:yekong2002
--  发布时间:2015/9/14 12:05:00
--  
我想实现不同的用户只能修改自己部门的数据,就是想自己的部门有自己的表,然后设置权限。要是放在一起的话,就不懂要怎么做了!还有你说的“需要生成某部门,就动态生成查询/临时表”,我没能理解!我就是小白一个 ,真心不是很懂! 谢谢了 啊!
--  作者:大红袍
--  发布时间:2015/9/14 12:16:00
--  

一样可以做,看一下权限管理。

 

http://www.foxtable.com/help/topics/2256.htm

 

http://www.foxtable.com/help/topics/2248.htm

 


--  作者:yekong2002
--  发布时间:2015/9/14 16:13:00
--  

不明白代码的意思DataTables("订单").LoadFilter = "业务员 = \'" & User.Name & "\'"  

  业务员  是一个用户名对吧!我选用我的一个用户名,加进去,切换到该用户  就提示“至少一个参数没有被指定值。


2、在项目的LoadUserSetting事件中设置代码,加载用户负责的订单:

If User.Name = "张经理" Then
    DataTables("订单").LoadFilter = ""
Else
    
DataTables("订单").LoadFilter = "业务员 = \'" & User.Name & "\'"
End
 If
DataTables
("订单").Load()

这样用户登录后,系统判断登录用户是否是张经理,如果是的,则加载所有订单,否则只加载登录用户负责的订单。

上面的代码是基于用户名的,同样可以改为基于用户分组的,只需将上述代码中的User.Name改为User.Group,并将用户名替换为分组名即可。

  


--  作者:大红袍
--  发布时间:2015/9/14 16:17:00
--  

比如,登陆的时候这样写,就是表示,加载某某公司的数据

 

DataTables("订单").LoadFilter = "公司 = \'某某公司\'" 

DataTables("订单").Load


--  作者:yekong2002
--  发布时间:2015/9/14 17:12:00
--  
“公司”是指表中的列名吗?我是这样设置的,选用内部表清零。但是切换用户的时候 就是会提示至少一个参数没有被指定值。”用其他用户 就是不能看,只有张经理能看
--  作者:大红袍
--  发布时间:2015/9/14 17:19:00
--  

If User.Name = "张经理" Then
    DataTables("订单").LoadFilter = ""
Else
    DataTables("订单").LoadFilter = "1=2"
End If
DataTables("订单").Load()