Foxtable(狐表)用户栏目专家坐堂 → 自定义汇总测试后问题


  共有8088人关注过本帖树形打印复制链接

主题:自定义汇总测试后问题

帅哥哟,离线,有人找我吗?
lin_hailun
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/26 11:49:00 [显示全部帖子]

 生成表以后,你再对这个表进行合并的设置就行了。

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

 回到顶部