主题：求代码

表A中的“客户名称”列中，有多个不同的客户名，并且出现过多次，如何统计出每个客户在表A中的记录数

 

帮助中的那段和此问题相关，可以有帮助

 

谢谢

Dim f As String = "客户名称 = '" & r("客户名称") & "'"

Dim v As String = " 客户名称:" & t.Compute("Count(_Identify)",f)

 

这样计算的结果总是0，哪里有问题？

 

谢谢

是没找到，换了具体的条件，就有计算结果了，看来是条件的问题，我再查查，谢谢

还是不行，我完全是按帮助中的《自己定义汇总模式》做的

 

Dim t As Table = Tables("表A")
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 = 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(_Identify)",f)
        r("客户名称") = r("客户名称") & v
    End If
Next

 

行中显示出：张三     记录数量：0

                 李四     记录数量：0

。

。

 

哪里有问题？谢谢

补充：如果把条件中的r("客户名称")改为 ”张三",就可以了，全统计的是张三的记录数量

出错了