以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自定义汇总测试后问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28354)

--  作者:sutingrong
--  发布时间: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
请问这是怎么回事呢


--  作者:lin_hailun
--  发布时间: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

--  作者:sutingrong
--  发布时间:2013/1/26 11:46:00
--  
 按着您的方法做没有问题了,图片点击可在新窗口打开查看谢谢。不过还有个问题就是:汇总后,单元格不能合并。要怎么设置呢
图片点击可在新窗口打开查看


--  作者:lin_hailun
--  发布时间:2013/1/26 11:49:00
--  
 生成表以后,你再对这个表进行合并的设置就行了。

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