ActiveReport换页时，分页标题显示不正确的解决方法

Private strUp As String = ""
Private strClass As String = ""
Private count As Integer = 0
Private Sub Detail_Format(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Detail.Format
Try
If strUp <> txtGHClass.Text Then
strUp = txtGHClass.Text
strClass += strUp + "|"
End If
GroupFooter3.Visible = True
Catch ex As Exception
Throw ex
End Try
End Sub
Private Sub GroupFooter1_Format(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupFooter1.Format
Try
count += 1
txtGHClass.Text = strClass.Split("|")(count - 1).Substring(0)
Catch ex As Exception
Throw ex
End Try
End Sub