Foxtable(狐表)用户栏目专家坐堂 → 请教如下


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

主题:请教如下

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


加好友 发短信
等级:九尾狐 帖子:2568 积分:20245 威望:0 精华:0 注册:2012/5/19 11:57:00
请教如下  发帖心情 Post By:2025/3/12 15:32:00 [显示全部帖子]

Dim t As Table = Tables("订单")
Dim 
g As SubtotalGroup
t.SubtotalGroups.Clear
()
g = New SubtotalGroup
g.GroupOn = 
"产品"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()

Dim r As Row
For
 i As Integer = 0 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)
        v = v & " 订购金额:" & t.Compute("Sum(金额)",f)
        r("产品") = "产品:" & r("产品") & v
    End
 
If
Next





请教 如果compute 多个条件 该如何处理 ?因为其他字段都是空值


 回到顶部