下载信息  [文件大小：   下载次数： ]

点击浏览该文件:分组统计结果显示部分行.foxdb

分组统计，按产品、客户分类，按产品 、数量排序。

希望：每一产品组只显示数量最大的两行记录，该怎么办？

Dim g As New GroupTableBuilder("统计表2", DataTables("订单"))
g.Groups.AddDef("产品")
g.Groups.AddDef("客户")
g.Totals.AddDef("数量")
Dim t As Table = Tables("窗口1_Table1")
t.DataSource = g.BuildDataSource()
t.Sort = "产品 ,数量 DESC"
Dim count As Integer = 0
For i As Integer = 0 To t.Rows.count - 1
    If i > 0 AndAlso t.Rows(i)("产品") <> t.rows(i-1)("产品")
        count = 1
    Else
        count += 1
        If count > 2 Then
            t.Rows(i)("_locked") = True
        End If
    End If
Next
t.filter = "_Locked is null"