以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17247)

--  作者:jshmrh
--  发布时间:2012/3/8 10:04:00
--  统计
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table

我要求按客户小计未收金额,最后一行合计未收金额。这样如何实现
--  作者:狐狸爸爸
--  发布时间:2012/3/8 10:05:00
--  

这个很简单,您可以设置汇总模式:

http://www.foxtable.com/help/topics/00144.htm

 


--  作者:jshmrh
--  发布时间:2012/3/8 21:50:00
--  

应收金额小计 - 收款金额小计 = 未收金额小计 如何设置


--  作者:czy
--  发布时间:2012/3/8 22:17:00
--  

用自定义按钮汇总吧。

 

Dim t As Table = Tables("应收款")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "客户"
g.TotalOn = "应收金额,收款金额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "月份_年"
g.TotalOn = "应收金额,收款金额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

t.Subtotal()
Dim r As Row
For i As Integer = 0 To Tables("应收款").Rows.Count(True) - 1
    r = Tables("应收款").Rows(i,True)
    If r.IsGroup
        r("未收金额") = r("应收金额") - r("收款金额")
    End If
Next


--  作者:jshmrh
--  发布时间:2012/3/9 9:39:00
--  

谢谢!