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


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

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

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


加好友 发短信
等级:狐精 帖子:3079 积分:20581 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/30 11:36:00 [显示全部帖子]

这样写可以,

Functions.Execute("单表加载",DataTables("中标统计"))
With DataTables("中标统计")
    .LoadPage = 0 '加载第一页
    .LoadTop =  20 '每页10行

内部函数获取加载条件,后面这样写不报错,但加载条件不起作用,有什么问题呢?
    .LoadFilter = Functions.Execute("单表加载",DataTables("中标统计"))


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


加好友 发短信
等级:狐精 帖子:3079 积分:20581 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/30 13:25:00 [显示全部帖子]

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

回复22楼,你内部函数有问题。你最后要return合成的条件的,比如

 

return "第一列='123' and 第二列='abc'"

有点甜老师,没理解到你这个意思。

比如我在查询筛选的时候:

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

输入字符串的格式不正确
[此贴子已经被作者于2018/5/30 14:04:51编辑过]

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


加好友 发短信
等级:狐精 帖子:3079 积分:20581 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/30 14:50:00 [显示全部帖子]

以下是引用有点甜在2018/5/30 14:16:00的发言:
    .LoadFilter = iif(filter>"", filter & " And ", "") & Functions.Execute("单表加载",DataTables("中标统计"))

老师,这个在查询的时候报错

.NET Framework 版本:2.0.50727.8762
Foxtable 版本:2018.3.9.1
错误所在事件:窗口,中标统计管理窗口,所属机构,ValueChanged
详细错误信息:
没有为 字符串“所属机构 = '巴中办事处' And ” 和 类型“DataTable” 定义运算符“&”。


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


加好友 发短信
等级:狐精 帖子:3079 积分:20581 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/30 14:57:00 [显示全部帖子]

以下是引用有点甜在2018/5/30 14:51:00的发言:
贴出内部函数代码。

Dim dt As DataTable=args(0)
Tables("账号密码").Filter = ""

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

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
'加载
dt.LoadFilter=filt
dt.Load
Return dt


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


加好友 发短信
等级:狐精 帖子:3079 积分:20581 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/30 15:33:00 [显示全部帖子]

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

 


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

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


加好友 发短信
等级:狐精 帖子:3079 积分:20581 威望: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合成条件如图,根据授权只加载了总公司和巴中办事处数据,怎么改合成条件。

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


加好友 发短信
等级:狐精 帖子:3079 积分:20581 威望: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("单表加载")怎么修改哈内部函数呢?


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


加好友 发短信
等级:狐精 帖子:3079 积分:20581 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/31 12:58:00 [显示全部帖子]

找到问题了

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

 回到顶部
总数 19 上一页 1 2