Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles _
    btnNeu.Click, btnEdit.Click
        Select Case True
            'Datensatz hinzufügen
            Case sender Is btnNeu
                Using frmAddAufgabe As New frmNewOrEditAufgabe
                    frmAddAufgabe.BSTODO.DataSource = BSTODO.AddNew
                    If frmAddAufgabe.ShowDialog(Me) <> _
                      Windows.Forms.DialogResult.OK Then Return
                    BSTODO.EndEdit()
 
                End Using
            Case sender Is btnEdit
                If BSTODO.Count = 0 Then
                    Return
                End If
                'Datensatz editieren
                Using frmAddAufgabe As New frmNewOrEditAufgabe
                    frmAddAufgabe.BSTODO.DataSource = BSTODO.Current
                    If frmAddAufgabe.ShowDialog(Me) <> _
                      Windows.Forms.DialogResult.OK Then Return
                    BSTODO.EndEdit()
 
                End Using
        End Select
 
 
    End Sub

  Public Function Aufgaben_Form(ByVal Form_Use As Frm_Use, ByVal Aufgabe As _
    TODORow) As TODORow
        'keine aktuelle Aufgabe gewählt / vorhanden
        If Aufgabe Is Nothing Then Return Nothing
        Using editor As New frmAufgabenbeschreibung
            With editor
                ' Hier der Form mitteilen das es Bearbeitet wird
                .Bearbeiten = Form_Use
                Select Case Form_Use
                    Case Frm_Use.Bearbeiten
                        .AufgabenartTextBox.Text = Aufgabe.Aufgabenart
                        .EintragTextBox.Text = Aufgabe.Eintrag
                        .AufgabeTextBox.Text = Aufgabe.Aufgabenbeschreibung
                        .cberledigt.Checked = Aufgabe.Status
                End Select
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    ' hier die Daten der Form abholen. Sobald da das OK 
                    ' zurückkommt
                    Aufgabe.Aufgabenart = .AufgabenartTextBox.Text
                    Aufgabe.Eintrag = .EintragTextBox.Text
                    Aufgabe.Aufgabenbeschreibung = .AufgabeTextBox.Text
                    Aufgabe.Status = .cberledigt.Checked
                    If Form_Use = Frm_Use.Neu Then
                        ' Status setzen
                        ReturnStatus = Frm_Use.Neu
                    Else
                        ReturnStatus = Frm_Use.Bearbeiten
                    End If
                End If
            End With
 
        End Using
        Return Aufgabe
    End Function

 Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles _
   btnNeu.Click, btnEdit.Click
        ' Neue DRV
        Dim DRV As TDDS.TODORow = Nothing
        ' Neue Instanz der Hilfsklasse
        Dim Aufgabe As Hilfsklasse = New Hilfsklasse
        ' Den Button ermitteln
        Dim Btn As Button = CType(sender, Button)
        If Btn Is btnNeu Then
            ' Neue DRV erstellen und weiter geben
            DRV = TDDS.TODO.NewTODORow
            ' Die Daten Zeile der DataTable zufügen
            Aufgabe.Aufgaben_Form(Hilfsklasse.Frm_Use.Neu, DRV)
        ElseIf Btn Is btnEdit Then
            ' Hier ändern wir den Eintrag. Dazu die Current DataRow übernehmen
            DRV = TODO_TypRow
            ' Hier merken wir uns den Eintrag 
            Dim Merker_Beschreibung As String = DRV.Aufgabenbeschreibung
            ' Die Form Aufgaben anzeigen und die Daten weitergeben
            Aufgabe.Aufgaben_Form(Hilfsklasse.Frm_Use.Bearbeiten, DRV)
            '### hier fragen wir ob sich an der Aufgabe was geändert hat
            If DRV.Aufgabenbeschreibung <> Merker_Beschreibung Then
                MessageBox.Show("Es wurde was geändert")
            End If
        End If
        ' Wenn es ein neuer Eintrag ist ...
        If Aufgabe.ReturnStatus = Hilfsklasse.Frm_Use.Neu Then
            Try
                TDDS.TODO.AddTODORow(DRV)
            Catch ex As Exception
                MsgBox("Fehler: " & ex.Message, MsgBoxStyle.Exclamation, _
                  "prüfen")
            End Try
 
        End If
        ' Nach jedem neuen oder geänderten Datensatz gleich Speichern.
        saveDB()
        ' gehe zum letzten Eintrag
        BSTODO.MoveLast()
    End Sub

  Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles _
    btnAdd.Click
        For i As Integer = 0 To TODODataGridView.Rows.Count() - 1 Step +1
            Dim rowAlreadyExist As Boolean = False
            Dim check As Boolean = TODODataGridView.Rows(i).Cells(4).Value
            Dim row As DataGridViewRow = TODODataGridView.Rows(i)
            If check = True Then
 
                If ErledigtDataGridView.Rows.Count() > 0 Then
                    For j As Integer = 0 To ErledigtDataGridView.Rows.Count() - _
                      1 Step +1
                        If row.Cells(0).Value.ToString() = _
                        ErledigtDataGridView.Rows(j).Cells(0).Value.ToString() _
                        Then
                            rowAlreadyExist = True
                            Exit For
                        End If
                    Next
 
                    If rowAlreadyExist = False Then
                        ErledigtDataGridView.Rows.Add(row.Cells( _
                          0).Value.ToString(), _
                                                      row.Cells( _
                                                      1).Value.ToString(), _
                                                      row.Cells( _
                                                      2).Value.ToString(), _
                                                      row.Cells( _
                                                      3).Value.ToString(), _
                                                      row.Cells(4).Value)
                    End If
                Else
                    ErledigtDataGridView.Rows.Add(row.Cells(0).Value.ToString( _
                      ), _
                                                        row.Cells( _
                                                        1).Value.ToString(), _
                                                        row.Cells( _
                                                        2).Value.ToString(), _
                                                        row.Cells( _
                                                        3).Value.ToString(), _
                                                        row.Cells(4).Value)
                End If
            End If
        Next
    End Sub

  Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles _
    btnAdd.Click
        Daten_erledigt_speichern()
        'Dataset speichern
        saveDB()
    End Sub
    '// Daten verschieben in die Tabelle TODOFERTIG
    Private Sub Daten_erledigt_speichern()
        Me.Cursor = Cursors.WaitCursor
        For i As Integer = 0 To TDDS.TODO.Rows.Count - 1
            Dim rowAlreadyExist As Boolean = False
            Dim row As DataRow = TDDS.TODO.Rows(i)
            Dim drNew As DataRow = TDDS.TODOFERTIG.NewRow()
            If row("Status") = True Then
                drNew.ItemArray = row.ItemArray
                TDDS.TODOFERTIG.Rows.Add(drNew)
            Else
                'MessageBox.Show("Check", "Status", MessageBoxButtons.OK, 
                ' MessageBoxIcon.Information)
            End If
        Next i
        Me.Cursor = Cursors.Default
        Daten_erledigt_entfernen()
    End Sub
    '// Daten nach verschieben in die Tabelle aus der DGV TODO entfernen
    Private Sub Daten_erledigt_entfernen()
        Me.Cursor = Cursors.WaitCursor
        Dim intRowCounter As Integer = 0
        While intRowCounter <> -1
            If intRowCounter < TODODataGridView.RowCount Then
                If TODODataGridView.Rows(intRowCounter).Cells(4).Value = True _
                  Then
                    TODODataGridView.Rows.Remove(TODODataGridView.Rows( _
                    intRowCounter))
                Else
                    intRowCounter += 1
                End If
            Else
                intRowCounter = -1
            End If
 
        End While
        Me.Cursor = Cursors.Default
        MessageBox.Show("Aktion erfolgreich", "Status", MessageBoxButtons.OK, _
          MessageBoxIcon.Information)
    End Sub

Salzburger

Salzburger