- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 按Group加载的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33494)
-- 发布时间：2013/5/19 14:25:00
-- 按Group加载的问题
下面代码是按登录用户所属部门判断加载的数据，如果是总部，则加载所有行，如果是分公司，则只加载此分公司的数据，为什么不对？
For Each t As Table In Tables
For Each r As Row In t.rows
If User.Group ="总部" Then
t.loadfilter= ""
Else
t.LoadFilter = "分公司 = \'" & User.group & "\'"
End If
t.load
Next
Next
用户名表
此主题相关图片如下：1.png
-- 发布时间：2013/5/19 15:39:00
--
無語對蒼天:.loadfilter是Table的方法嗎?
-- 发布时间：2013/5/19 15:45:00
-- 回复：（don）無語對蒼天:.loadfilter是Table的方法嗎...
don老师，俺小白一个，您千万可别往心里去，
-- 发布时间：2013/5/19 17:20:00
--
你不吃透幫助,代碼東拼西湊的,設計出來的程式,無人敢恭維的:加載怎會在 For Each r As Row In t.rows 裡面
[此贴子已经被作者于2013-5-19 17:33:36编辑过]
-- 发布时间：2013/5/19 17:45:00
--
t.Datable.laodfilter
-- 发布时间：2013/5/19 20:30:00
-- 回复：（晕了快扶我） t.Datable.laodfilter
谢谢“晕了快扶我”及don老师，小白所犯的低级错误，可别生气呀
-- 发布时间：2013/5/19 21:11:00
--
按教程1630页做的，怎么也无效呢？（ _UserGroup为全局代码）
If _UserGroup = "总部" Then
DataTables("合同档案").LoadFilter = ""
Else
DataTables("合同档案").LoadFilter = "分公司 = " & _UserGroup & ""
End If
DataTables("合同档案").Load()
-- 发布时间：2013/5/19 21:12:00
--
遍历也无效：
For Each t As DataTable In DataTables
If _UserGroup ="总部" Then
t.loadfilter= ""
Else
t.LoadFilter = "分公司 = " & _Usergroup & ""
End If
t.load()
Next
-- 发布时间：2013/5/20 9:17:00
--
狐爸在不？
-- 发布时间：2013/5/20 9:38:00
--
t.LoadFilter = "分公司 = \'" & _Usergroup & "\'"