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

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

谢谢

 设置分组统计，"Count(_Identify)"

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

 或者

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

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

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

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

谢谢

如果是0，就是没有找到符合条件的行。

你试试直接写。

msgbox("bbb" & r("客户名称") & "bbb")

Dim f As String = "客户名称 = \'" & "张三" & "\'"

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

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

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

。

。

哪里有问题？谢谢

 你试试这样写

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