Me.Cursor = Cursors.WaitCursor
        Me.cmbDruck.Enabled = False
 
        Dim Row As System.Data.DataRow
        For Each Row In DtsOffAuftrag1.kundenstamm
 
            If Row.GetChildRows("relBrille").Length = 0 And _
               Row.GetChildRows("relHandelsware").Length = 0 Then
                 ' Hier hätte ich gehofft, dass die Master Tabelle bereinigt 
                 ' wird
                Row.Delete()
 
            End If
        Next
        ' Übergabe der Daten an ein Drittprogramm
        ListLabel.SetDataBinding(DtsOffAuftrag1, String.Empty)
        ListLabel.AutoMasterMode = combit.ListLabel12.LlAutoMasterMode.AsFields
        ListLabel.Design()
        ListLabel.Print()
        Me.cmbDruck.Enabled = True
        Me.Cursor = Cursors.Default