主题：求代码

表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

。

。

 

哪里有问题？谢谢

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

 你试试这样写

 

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

出错了