以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  统计结果生成的临时表的分页显示问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121035)

--  作者:yiningyl
--  发布时间:2018/6/27 20:13:00
--  统计结果生成的临时表的分页显示问题


此主题相关图片如下:aaa1.jpg
按此在新窗口浏览图片


 

Dim g As New SQLGroupTableBuilder("干部情况统计表","rhdjb")
g.C o n n e c tig.AddTable("rhdjb","gmid","gbxxb","gmid") \'添加统计表
g.Caption = "干部情况统计表"
g.Groups.AddDef("{gbxxb}.dwsd")
g.Groups.AddDef("{gbxxb}.gzdw")
g.Totals.AddDef("{rhdjb}.rzts", "天数合计", "天数合计")
g.Filter = "jtzzbh Like \'" & _UserReplace & "%\'"
g.FromServer = True
g.Build()
Dim t As Table = Tables("干部情况统计表")
Dim dt As DataTable = t.DataTable
dt.DataCols.Add("干部总数",Gettype(Integer) )
Dim dr1 As New List(Of String)
For Each dr As DataRow In dt.DataRows
    dr1 = DataTables("gbrhcxb").SQLGetValues("gmid","dwsd=\'" & dr("dwsd") & "\' And gzdw=\'" & dr("gzdw") & "\'")
    dr("干部总数") =dr1.count
   Next


With DataTables("干部情况统计表")
    .LoadPage = 0 \'加载第一页
    .LoadTop = 100 \'每页100行
    .Load()
End With

Tables("信息统计_Table1").DataSource = DataTables("干部情况统计表")
\'DataTables("干部情况统计表").load()
Tables("干部情况统计表").OpenFilterTree("dwsd|gzdw")


 

老师,我用上面代码 编了个统计按钮,统计临时表结果放到窗口的一张表里 “信息统计_Table1”

 

现在情况是 统计结果数据量比较多,估计有几千上万行, 我想把统计结果分页显示。

上面的分页结果没执行啊

用统计结果做的筛选树也不显示。。

因为是临时表,也不让做加载树。。

怎么办?

 

[此贴子已经被作者于2018/6/27 20:18:17编辑过]

--  作者:有点甜
--  发布时间:2018/6/27 21:49:00
--  

查询表、临时表、统计表,无法分页加载。

 

你SQLGroupTableBuilder生成的时候,build就已经把所有数据弄到foxtable了,没有必要分页。

 

尽量不要用 SQLGetValues 获取值,很耗时的。

 

如果确实需要分页,参考 http://www.foxtable.com/webhelp/scr/2781.htm