Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:请教如下

1楼
jswjyjf 发表于: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 多个条件 该如何处理 ?因为其他字段都是空值

2楼
有点蓝 发表于:2025/3/12 15:44:00
http://www.foxtable.com/webhelp/topics/1284.htm
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.