- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教一个根据条件加载外部数据的例子 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=2789)
-- 发布时间：2009/5/14 12:08:00
-- 请教一个根据条件加载外部数据的例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目16.rar |
看了看加载外部数据的介绍,感觉很不错,想想肯定能够根据条件加载外部数据
不同的用户在同一个数据源里面加载不同的数据
文件已经设置好数据源与数据表.
我想设置成为,不同的用户进来时,加载相关记录.
用王总(用户属性是发布组)用户名登录,只加载 (项目发布者列) 中姓名是王总的记录
用小唐(用户属性是执行组)用户名登录.只加载 (项目负责人列) 中姓名是小唐的记录
用开发者管理员进入时,加载全部
不知道代码应该写在那儿(项目文件属性还是表属性),看见数据表加载那儿只有关于加载时排序的介绍...
那位大哥大姐知道怎么做的,帮帮忙....
-- 发布时间：2009/5/14 12:13:00
--
内部表，写在项目事件BeforeLoadInnerTable中
外部表，写在项目事件BeforeLoadOuterTable中
-- 发布时间：2009/5/14 13:22:00
--
如果我不想让 用户组别 或 个别用户 看见A表,但是A表又必需要加载进来,它要参与计算..
代码怎么写?
-- 发布时间：2009/5/14 13:27:00
-- [求助]如何实现物料表（物料的基础信息）增加数据后，库存表的数据也相应自动增加（物料的基础资料）
1、
用AfterOpenProjec事件
2、
If User.Group <> "XXX" Then
Tables("YYYYY").Visble = False
End If
-- 发布时间：2009/5/14 13:46:00
--
狐爸
If e.DataTableName = "数据库试用问题请教" AndAlso e.User.Group <>"执行组" Then
e.SelectString = "Select * From [数据库试用问题请教] Where [项目指定负责人] = \'" & e.User.Name & "\'"
End If
失效....
错在那儿?
-- 发布时间：2009/5/14 14:29:00
--
If e.DataTableName = "数据库试用问题请教" AndAlso e.User.Group <>"执行组" Then
e.SelectString = "Select * From [数据库试用问题请教] Where [项目指定负责人] = "& e.User.Name & ""
End If
-- 发布时间：2009/5/14 18:30:00
--
杨大姐
一样无效啊....
-- 发布时间：2009/5/14 18:46:00
--
试试
If e.DataTableName = "数据库试用问题请教" AndAlso e.User.Group <>"执行组" Then
e.SelectString = "Select * From {数据库试用问题请教} Where 项目指定负责人= \'" & e.User.Name & "\'"
End If
-- 发布时间：2009/5/14 19:06:00
--
有什么提示?你有无分组用户"执行组"
[此贴子已经被作者于2009-5-14 19:13:06编辑过]
-- 发布时间：2009/5/14 19:43:00
--
没有任何提示,全都加载进来了