- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 为啥统计表不能显示汇总栏 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33795)
-- 发布时间：2013/5/24 12:59:00
-- 为啥统计表不能显示汇总栏
用统计生成了一个表，在窗体里将table绑定到这个表
加上汇总代码后，表试图里有汇总栏，但窗体的table却没有汇总栏
请问何故？
此主题相关图片如下：1.png
此主题相关图片如下：2.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:交叉统计.rar |
[此贴子已经被作者于2013-5-24 15:23:32编辑过]
-- 发布时间：2013/5/24 14:08:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:交叉统计.table |
[此贴子已经被作者于2013-5-24 14:09:45编辑过]
-- 发布时间：2013/5/24 14:29:00
--
谢谢bin的指导
-- 发布时间：2013/5/24 15:24:00
--
若窗体的table我想用副本表 就不能用这种方法显示汇总栏了
-- 发布时间：2013/5/24 20:30:00
--
请教bin：form先close然后再open ，引发的界面闪烁，有方法屏蔽不？
-- 发布时间：2013/5/24 21:51:00
--
Dim t1 As Table =Tables("窗口1_table1")
Dim dt1,dt2 As fxDataSource
Dim dts As fxDataSource() ={dt1,dt2}
Dim v1 As String() = {"入库","出库"}
Dim jb As SQLJoinTableBuilder
Dim s1,s2 As String
Dim n1 As Integer
For Each s1 In v1
jb =new SQLJoinTableBuilder("查询",s1 & "表")
jb.C
jb.AddExp("日期", s1 & "日期")
jb.AddExp(s1 & "单号", s1 & "单号")
jb.AddExp(s1 & "数量", "数量")
If n1= v1.length-1 Then jb.AddExp("结余", "0.0")
dts(n1) = jb.BuildDataSource()
n1+=1
Next
s2 = "日期"
dts(0).Combine(s2,dts(1),s2)
t1.StopRedraw
t1.DataSource = dts(0)
t1.sort = s2
For Each r As Row In t1.Rows
If r.Index= 0 Then
r("结余") = r("入库数量")-r("出库数量")
Else
r("结余") =t1(r.Index-1,"结余")+ r("入库数量")-r("出库数量")
End If
Next
Dim g As Subtotalgroup
t1.SubtotalGroups.Clear()
t1.GroupAboveData = False
t1.TreeVisible = False
t1.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "入库数量,出库数量"
g.Caption = "总计"
t1.SubtotalGroups.Add(g)
t1.Subtotal()
n1 = t1.Rows.Count(True) - 1
dim r1 as row = t1.Rows(n1,True)
r1("结余") =r1("入库数量")-r1("出库数量")
t1.ResumeRedraw
[此贴子已经被作者于2013-5-25 6:21:27编辑过]
-- 发布时间：2013/5/25 14:14:00
--
谢谢don的代码
-- 发布时间：2013/5/26 16:48:00
--
don的这个代码，我怎么在表标题里找不到生成的"查询"表呢
-- 发布时间：2013/5/26 18:19:00
--
昏,上次生成Table,你又把它绑定到窗口控件,这次帮你把结果绑定到窗口控件,你又说没Table了!
没有生成Table,当然在表标题里找不到
没有生成Table,当然在表标题里找不到
[此贴子已经被作者于2013-5-26 18:26:19编辑过]
-- 发布时间：2013/5/26 18:49:00
--
哦 没生成table那就算了
客户需要打印这个汇总表，看来没戏了