以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  为啥统计表不能显示汇总栏  (http://foxtable.com/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编辑过]

--  作者:Bin
--  发布时间: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我想用副本表 就不能用这种方法显示汇总栏了
--  作者:paullqxp
--  发布时间:2013/5/24 20:30:00
--  
请教bin:form先close然后再open ,引发的界面闪烁,有方法屏蔽不?
--  作者:don
--  发布时间: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的这个代码,我怎么在表标题里找不到生成的"查询"表呢

 


--  作者:don
--  发布时间:2013/5/26 18:19:00
--  
昏,上次生成Table,你又把它绑定到窗口控件,这次帮你把结果绑定到窗口控件,你又说没Table了!
没有生成Table,当然在表标题里找不到
[此贴子已经被作者于2013-5-26 18:26:19编辑过]

--  作者:泡泡
--  发布时间:2013/5/26 18:49:00
--  

哦 没生成table那就算了

客户需要打印这个汇总表,看来没戏了