以文本方式查看主题

-  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

失效....
错在那儿?

--  作者:yangming
--  发布时间: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
--  
杨大姐
一样无效啊....
--  作者:ybtxdz
--  发布时间:2009/5/14 18:46:00
--  
试试
If e.DataTableName = "数据库试用问题请教" AndAlso e.User.Group <>"执行组"  Then
    e.SelectString = "Select * From {数据库试用问题请教} Where 项目指定负责人= \'" & e.User.Name & "\'"
End If
--  作者:yangming
--  发布时间:2009/5/14 19:06:00
--  
有什么提示?你有无分组用户"执行组"
[此贴子已经被作者于2009-5-14 19:13:06编辑过]

--  作者:卟离卟弃
--  发布时间:2009/5/14 19:43:00
--  

没有任何提示,全都加载进来了