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