Ich habe ein Datagridview mit allen Notesdatenbanken.
Diesen sollen durch ein 2. Datagridview abrechnungsrelevante Positionen (hier Anwendungen genannt) hinzugefügt werden.
Beide Datgridviews sind an die jeweiligen Tabellen gebunden und setzen Comboboxen ein.
Die Anzeige und Änderung im 1. Datagridview funktionieren problemlos.
Im 2. Datagridview möchte ich die jeweiligen Anwendungen hinzufügen.
Auch mit Me.Tbl_A_Anwendung_NotesBindingSource.addnew kam ich nicht klar, da wußte ich nicht wie ich die Felder ansprechen sollte.
Dabei funktioniert das Datensatz hinzufügen in der Datenquelle problemlos, nur die Anzeige aktualisiert sich nicht.
Wenn ich einen Datensatz im Datagridview lösche, das umgekehrte Bild. Er ist im Datagridview verschwunden und in der Datenbank noch vorhanden.
Nach Neustart des Formulars sehe ich die echten Daten. Was mache ich hier falsch ?
Diesen sollen durch ein 2. Datagridview abrechnungsrelevante Positionen (hier Anwendungen genannt) hinzugefügt werden.
Beide Datgridviews sind an die jeweiligen Tabellen gebunden und setzen Comboboxen ein.
Die Anzeige und Änderung im 1. Datagridview funktionieren problemlos.
Im 2. Datagridview möchte ich die jeweiligen Anwendungen hinzufügen.
Auch mit Me.Tbl_A_Anwendung_NotesBindingSource.addnew kam ich nicht klar, da wußte ich nicht wie ich die Felder ansprechen sollte.
Dabei funktioniert das Datensatz hinzufügen in der Datenquelle problemlos, nur die Anzeige aktualisiert sich nicht.
Wenn ich einen Datensatz im Datagridview lösche, das umgekehrte Bild. Er ist im Datagridview verschwunden und in der Datenbank noch vorhanden.
Nach Neustart des Formulars sehe ich die echten Daten. Was mache ich hier falsch ?
VB.NET-Quellcode
-
- Imports System.Windows.Forms
- Public Class frmNotesDB
- Sub New()
- ' Dieser Aufruf ist für den Designer erforderlich.
- InitializeComponent()
- Me.Tbl_NutzerTableAdapter.Fill(Me.DsRechnerliste_be.tbl_Nutzer)
- Me.Tbl_Z_NotesDBTypTableAdapter.Fill(Me.DsRechnerliste_be.tbl_Z_NotesDBTyp)
- Me.Tbl_AnwendungTableAdapter.Fill(Me.DsRechnerliste_be.tbl_Anwendung)
- Me.TblAnwendungBindingSource.Filter = "Anwendung LIKE '%Notes%' or Anwendung='Fax In'"
- Me.Tbl_A_Anwendung_NotesTableAdapter.Fill(Me.DsRechnerliste_be.tbl_A_Anwendung_Notes)
- Me.Tbl_Z_KostenstelleTableAdapter.Fill(Me.DsRechnerliste_be.tbl_Z_Kostenstelle)
- Me.Tbl_NotesDBTableAdapter.Fill(Me.DsRechnerliste_be.tbl_NotesDB)
- With Me.cboAnwendung
- .DataSource = Me.TblAnwendungBindingSource
- .DisplayMember = "Anwendung"
- .ValueMember = "ID_Anwendung"
- End With
- End Sub
- Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
- Me.Validate()
- Me.Tbl_NotesDBBindingSource.EndEdit()
- Me.TableAdapterManager.UpdateAll(Me.DsRechnerliste_be)
- End Sub
- Private Sub DataGridView1_DataError(ByVal sender As Object, _
- ByVal e As DataGridViewDataErrorEventArgs) _
- Handles dgvNotesDB.DataError
- If (e.Context = DataGridViewDataErrorContexts.Formatting) Then
- Debug.Print("Zeile " & e.RowIndex & " Spalte " & e.ColumnIndex & " " & e.Context)
- End If
- e.ThrowException = False
- End Sub
- Private Sub dgvNotesDB_RowHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvNotesDB.RowHeaderMouseClick
- Me.Tbl_A_Anwendung_NotesBindingSource.Filter = "ID_NotesDB=" & Me.dgvNotesDB.CurrentRow.Cells(colID_NotesDB.Index).Value.ToString
- End Sub
- Private Sub cboAnwendung_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cboAnwendung.SelectionChangeCommitted
- Try
- Dim Rechnerliste As dsRechnerliste_be = DsRechnerliste_be.GetInstance
- Dim dtrowanwendungNotes As dsRechnerliste_be.tbl_A_Anwendung_NotesRow = DirectCast(Rechnerliste.tbl_A_Anwendung_Notes.NewRow, VertriebSO.dsRechnerliste_be.tbl_A_Anwendung_NotesRow)
- With dtrowanwendungNotes
- .ID_Anwendung = CInt(Me.cboAnwendung.SelectedValue)
- .ID_NotesDB = CInt(Me.dgvNotesDB.CurrentRow.Cells(colID_NotesDB.Index).Value)
- End With
- Me.Validate()
- Rechnerliste.tbl_A_Anwendung_Notes.Rows.Add(dtrowanwendungNotes)
- Rechnerliste.daA_Anwendung_Notesupdate()
- Me.Tbl_A_Anwendung_NotesBindingSource.ResetBindings(False)
- Me.dgvAnwendungNotes.DataSource = Tbl_A_Anwendung_NotesBindingSource
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- End Sub
- Private Sub btnLöscheAnwendungNotes_Click(sender As Object, e As EventArgs) Handles btnLöscheAnwendungNotes.Click
- Me.Tbl_A_Anwendung_NotesBindingSource.RemoveCurrent()
- Me.Tbl_A_Anwendung_NotesBindingSource.EndEdit()
- End Sub
- End Class