Foxtable(狐表)用户栏目专家坐堂 → 动态加载表,怎么分页加载


  共有3606人关注过本帖树形打印复制链接

主题:动态加载表,怎么分页加载

帅哥哟,离线,有人找我吗?
cd_tdh
  31楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3052 积分:20419 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/30 15:33:00 [只看该作者]

老师,这样不报错,但查询结果还是不对,比如我这个用户,加载的是总公司,巴中办事处,我选其他办事处,出来的结果还是“巴中办事处“的

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180530153003.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/30 15:36:00 [只看该作者]

以下是引用cd_tdh在2018/5/30 15:33:00的发言:

老师,这样不报错,但查询结果还是不对,比如我这个用户,加载的是总公司,巴中办事处,我选其他办事处,出来的结果还是“巴中办事处“的

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180530153003.png

 

那你选择什么办事处,就合成什么加载条件啊,不顶死加载条件即可啊。


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  33楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3052 积分:20419 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/30 16:31:00 [只看该作者]

老师,没反到三,按照
    .LoadFilter = iif(filter > "", filter & " And ", "") & Functions.Execute("单表加载",DataTables("中标统计"))
这个写法,我选了安徽分公司,应该为空,.LoadFilter合成条件如图,根据授权只加载了总公司和巴中办事处数据,怎么改合成条件。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/30 16:37:00 [只看该作者]

以下是引用cd_tdh在2018/5/30 16:31:00的发言:
老师,没反到三,按照
    .LoadFilter = iif(filter > "", filter & " And ", "") & Functions.Execute("单表加载",DataTables("中标统计"))
这个写法,我选了安徽分公司,应该为空,.LoadFilter合成条件如图,根据授权只加载了总公司和巴中办事处数据,怎么改合成条件。

 

.LoadFilter = iif(filter > "", "(" & filter & ") And ", "") & "(" & Functions.Execute("单表加载",DataTables("中标统计")) & ")"


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  35楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3052 积分:20419 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/31 11:14:00 [只看该作者]

以下是引用有点甜在2018/5/30 16:37:00的发言:

 

.LoadFilter = iif(filter > "", "(" & filter & ") And ", "") & "(" & Functions.Execute("单表加载",DataTables("中标统计")) & ")"

有点甜老师,每次加载都要写表名,直接Functions.Execute("单表加载")怎么修改哈内部函数呢?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/31 11:44:00 [只看该作者]

Dim dr As DataRow=DataTables("账号密码").sqlFind("账号='" & _UserName  & "'")
If dr Is Nothing  Then Return "1=2"

Dim lst1 As new List(of String)
Dim lst2 As new List(of String)
lst1.AddRange(dr("加载集合").split(","))

'加载范围
Dim filt As String = Nothing
For Each ls As String In lst1
    If filt<>"" Then filt=filt & " OR "
    filt=filt & "所属机构= '" & ls & "'"
Next
'加载
Return filt


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  37楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3052 积分:20419 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/31 12:58:00 [只看该作者]

找到问题了

[此贴子已经被作者于2018/5/31 13:48:51编辑过]

 回到顶部
总数 37 上一页 1 2 3 4