- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 加载代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175278)
-- 发布时间：2022/2/26 18:41:00
-- 加载代码
老师，这个加载代码哪里错了，为什么不起作用，请老师帮忙，谢谢。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:加载代码.rar |
[此贴子已经被作者于2022/2/26 18:42:52编辑过]
-- 发布时间：2022/2/27 20:42:00
--
不起作用指什么？没反应？还是加载的数据不正确？
Dim Filter
As String
If user.IsRole("A公司") = True Then
Filter
= "银行编号 Like \'1%\'"
End If
msgbox(Filter)
If Filter
> "" Then
DataTables("银行余额表").LoadFilter
= Filter
DataTables("银行余额表").Load()
msgbox(1)
End If
-- 发布时间：2022/2/28 9:19:00
--
不起作用指的是：还是加载了全部银行信息。
-- 发布时间：2022/2/28 9:26:00
--
2楼代码测试提示看弹出什么内容？
-- 发布时间：2022/2/28 18:07:00
--
是空白老师，没有任何字符
-- 发布时间：2022/2/28 20:55:00
--
没有任何字符当然是加载全部数据啊！说明登录用户没有A公司这个角色