此主题相关图片如下：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编辑过]
加好友 
发短信
Post By：2018/6/27 20:13:00 [只看该作者]
