- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自定义汇总测试后问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28354)
-- 发布时间：2013/1/26 11:14:00
-- 自定义汇总测试后问题
按着帮助里面的做法我建立了一个产品表，但是我在表中的产品列前加一列的话就出现了下图的情况，产品名称填到了id那一列，然后数量和金额没有获取不到产品的信息进行统计出来
。如果把id一列去掉就正常了，如下图
、代码如下：
Dim t As Table = Tables("产品")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "产品"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim r As Row
For i As Integer = 1 To t.Rows.Count(True) - 1
r = t.Rows(i,True)
If r.IsGroup \'如果是分组行
Dim f As String = "产品 = \'" & r("产品") & "\'"
Dim v As String = " 数量:" & t.Compute("count(数量)",f)
v = v & "金额:" & t.Compute("Sum(金额)",f)
r("产品") = "产品:" & r("产品") & v
End If
Next
请问这是怎么回事呢
-- 发布时间：2013/1/26 11:34:00
--
楼主你这样改一下代码看看吧。
Dim r As Row
For i As Integer = 1 To t.Rows.Count(True) - 1
r = t.Rows(i,True)
If r.IsGroup \'如果是分组行
Dim f As String = "产品 = \'" & r("id") & "\'"
Dim v As String = " 数量:" & t.Compute("count(数量)",f)
v = v & "金额:" & t.Compute("Sum(金额)",f)
r("产品") = "产品:" & r("id") & v
r("id") = nothing
End If
Next
-- 发布时间：2013/1/26 11:46:00
--
按着您的方法做没有问题了，
谢谢。不过还有个问题就是：汇总后，单元格不能合并。要怎么设置呢
-- 发布时间：2013/1/26 11:49:00
--
生成表以后，你再对这个表进行合并的设置就行了。
http://www.foxtable.com/help/topics/1373.htm