主题：[求助]合计行0值不显示

Select Case e.DataCol.Name
    Case "投资收入","建筑公司收入","其它收入","备用金支出","备用金收回","班组支出","管理人员工资"
        For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))
            Dim Val1 As Double = e.DataTable.Compute("Sum(收入合计)","[_SortKey] <= " & dr("_SortKey"))
            Dim Val2 As Double = e.DataTable.Compute("Sum(支出合计)","[_SortKey] <= " & dr("_SortKey"))
            Dim Val3 As Double = e.DataTable.Compute("Sum(备用金合计)","[_SortKey] <= " & dr("_SortKey"))           
            dr("余额") = Val1 - Val2-Val3           
        Next
'显示合计行
        With Tables("现金流量表")
           
            .Cols("房地产收入").GrandTotal = True
            .Cols("房地产支出").GrandTotal = True
            .Cols("房地产合计").GrandTotal = True
           
            .Cols("投资收入").GrandTotal = True
            .Cols("投资支出").GrandTotal = True
            .Cols("投资合计").GrandTotal = True
           
            .Cols("建筑公司收入").GrandTotal = True
            .Cols("其它收入").GrandTotal = True
            .Cols("收入合计").GrandTotal = True
           
            .Cols("班组支出").GrandTotal = True
            .Cols("管理人员工资").GrandTotal = True
            .Cols("支出合计").GrandTotal = True
            .GrandTotal = True           
        End With       
End Select

要怎么样才能不显示0值