vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Datagridview zeigt hinzugefügten Datensatz nicht an 
Autor: ERBRU
Datum: 07.09.20 07:34

Hallo Manfred X

hier mal meine Lösung:

habe mir eine Hilfsklasse erstellt mit dieser Funktion:

  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
in der Main Form (Form1) rufe ich die Form für das hinzufügen oder editieren eines Datensatz auf
 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
es funktioniert https://ibb.co/16L2n5G jetzt möchte ich das erreichen s. Bild
kannst du helfen ? das wäre Super
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Datagridview zeigt hinzugefügten Datensatz nicht an171ERBRU06.09.20 14:26
Re: Datagridview zeigt hinzugefügten Datensatz nicht an67Manfred X06.09.20 16:57
Re: Datagridview zeigt hinzugefügten Datensatz nicht an44ERBRU06.09.20 17:30
Re: Datagridview zeigt hinzugefügten Datensatz nicht an38ERBRU07.09.20 07:34
Re: Datagridview zeigt hinzugefügten Datensatz nicht an33ERBRU07.09.20 11:50
Re: Datagridview zeigt hinzugefügten Datensatz nicht an32ERBRU07.09.20 12:49
Re: Datagridview zeigt hinzugefügten Datensatz nicht an23ERBRU08.09.20 09:46
Re: Datagridview zeigt hinzugefügten Datensatz nicht an25thuring12.09.20 10:59
Re: Datagridview zeigt hinzugefügten Datensatz nicht an21thuring12.09.20 11:12
Re: Datagridview zeigt hinzugefügten Datensatz nicht an15ERBRU12.09.20 11:09
Re: Datagridview zeigt hinzugefügten Datensatz nicht an16ERBRU12.09.20 11:30
Re: Datagridview zeigt hinzugefügten Datensatz nicht an10ERBRU13.09.20 10:19

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2020 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel