If MenuItem11.Checked = False Then
            tempDT = New DataTable
            tempDT = DataSet11.ZP.Clone
            tempDT.Rows.Clear()
            tempDT.TableName = "Table1"
            For a As Integer = 0 To DataSet11.ZP.Rows.Count - 1
                If Not DataSet11.ZP.Rows(a).RowState = DataRowState.Deleted Then
                    If DataSet11.ZP.Rows(a).Item("Tabelle") = "B" Then
                        Dim tStr As String = "Tabelle = 'B' AND Fällig = '" & _
                          AntiDBNullNUM(DataSet11.ZP.Rows(a).Item("Fällig")) & _
                          "'"
                        Dim tRow() As DataRow = tempDT.Select(tStr)
                        If tRow.Length = 0 Then
                            tempDT.Rows.Add(DataSet11.ZP.Rows(a).ItemArray)
                            tRow = tempDT.Select(tStr)
                            tRow(0).Item("LfdNr") = ""
                            tRow(0).Item("Name") = "offene Debitoren"
                        Else
                            tRow(0).Item("Einnahmen") += AntiDBNullNUM( _
                              DataSet11.ZP.Rows(a).Item("Einnahmen"))
End If
                    Else
                        tempDT.Rows.Add(DataSet11.ZP.Rows(a).ItemArray)
                    End If
                End If
            Next
            Dim a1 As Integer = 0
            Do
                If tempDT.Rows(a1).Item("Tabelle") = "B" And AntiDBNullNUM( _
                  tempDT.Rows(a1).Item("Einnahmen") = 0  Then
                    tempDT.Rows.RemoveAt(a1)
                Else
                    '                    If tempDT.Rows(a1).Item("Tabelle") = 
                    ' "Z" Then MsgBox(a1)
                    a1 += 1
                End If
            Loop Until a1 >= tempDT.Rows.Count - 1
            DataSet11.Tables.Add(tempDT)
            DGAblage1.DataSource = DataSet11
            DGAblage1.DataMember = tempDT.TableName
            DGAblage1.ReadOnly = True
        Else
            DGAblage1.DataSource = DataSet11
            DGAblage1.DataMember = "ZP"
            DGAblage1.ReadOnly = False
            If DataSet11.Tables.Contains("Table1") Then
                DataSet11.Tables.Remove("Table1")
            End If
            tempDT = Nothing
        End If
        MenuItem11.Checked = Not MenuItem11.Checked