报表使用总分时空行总分如何去掉

Private Sub showHideCtrlAtDetail(ByVal TheReport As Report, ByVal isShow As Boolean)
Dim Ctr1 As Control
''只针对主体页
    For Each Ctr1 In TheReport.Section(acDetail).Controls
    If Ctr1.ControlType = acTextBox Then
        If isShow = False Then
            Ctr1.ForeColor = 16777215
        Else
            Ctr1.ForeColor = 0
        End If
   End If
    Next
End Sub

找到模块里面的该段代码，加上红色的