如何在报表中统计分组内某个字段不重复项的数目

'定义全局变量4个
Dim dgcs As Integer
Dim tjcs As Integer
Dim cfstr As String
Dim bcfstr As String


'逐个计算[名称]字段里不重复个数
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
If InStr(1, cfstr, Me.名称) > 0 Then
   dgcs = 0
ElseIf InStr(1, bcfstr, Me.名称) > 0 Then
   dgcs = -1
   cfstr = cfstr & Me.名称
   bcfstr = Replace(bcfstr, Me.名称, "")
Else
   dgcs = 1
   bcfstr = bcfstr & Me.名称
End If
tjcs = tjcs + dgcs
End Sub


'显示不重复计数
Private Sub 组页脚1_Format(Cancel As Integer, FormatCount As Integer)
    'MsgBox tjcs
    Me.lbjg.Caption = tjcs
End Sub


'分组统计开始重置变量
Private Sub 组页眉0_Format(Cancel As Integer, FormatCount As Integer)
    dgcs = 0
    tjcs = 0
    cfstr = ""
    bcfstr = ""
End Sub

运行通过！