| |
VB.NET - Ein- und UmsteigerAddNew Methode von bindingsource funktioniert nicht | | | Autor: Hockov | Datum: 19.08.08 16:29 |
| Hallo, vieleicht kann mir jemand helfen !
Ich habe mehrere Textboxen über eine bindingsource an eine DataTable gebunden.
Dazu habe ich noch 6 Button. (Übernehmen, Neu, OK, Abbrechen, Datensatz vor, Datensatz zurück).
Ich möchte nun über diese Textfelder meine Daten anzeigen, was auch prima funktioniert.
Desweiteren möchte ich mit den Button Datensatz vor und Datensatz zurück die Datensaätze blättern, das auch wunderbar funktioniert.
Wenn ich Daten ändere werden diese sofort übernommen. - Funktioniert auch.
Wenn ich auf die Schaltfläche Neu klicke, sollten die Textfelder alle leer sein(um Daten reinschreiben zu können) und beim klicken auf den Übernehmen Button, sollen diese Daten hinzugefügt werden.
Leider weiß ich nicht wie ich das realisieren kann. Hab schon alles ausprobiert.
Ich hab gelesen, das dies mit der AddNew Methode geht. Ich hab es aber nicht hinbekommen.
Wäre toll wenn mir jemand helfen könnte
Hier mein unvollständiger Code.
Public Class frmArtikel
Dim tblArtikel As DataTable = New DataTable("Artikel")
Dim bs As New BindingSource
Private Sub frmArtikel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Artikeltabelle_Spalten_erstellen()
Formularfelder_binden()
zeilen_generieren()
End Sub
Private Sub Artikeltabelle_Spalten_erstellen()
Dim column As DataColumn
column = New DataColumn()
column.DataType = System.Type.GetType("System.Int32")
column.ColumnName = "Artikel_ID"
column.AutoIncrement = True
column.ReadOnly = True
column.Unique = True
tblArtikel.Columns.Add(column)
column = New DataColumn
column.DataType = System.Type.GetType("System.String")
column.ColumnName = "Artikel_Nr"
column.AutoIncrement = False
column.ReadOnly = False
column.Unique = False
tblArtikel.Columns.Add(column)
usw ......................................
End Sub
Private Sub Formularfelder_binden()
bs.DataSource = tblArtikel
txt_artikelnr.DataBindings.Add("Text", bs, "Artikel_Nr")
txt_menge.DataBindings.Add("Text", bs, "Menge")
txt_artikelbezeichnung.DataBindings.Add("Text", bs, "Artikelbezeichnung")
txt_ustsatz.DataBindings.Add("Text", bs, "UST_Satz")
txt_netto.DataBindings.Add("Text", bs, "Netto")
txt_mwst.DataBindings.Add("Text", bs, "MwSt")
txt_brutto.DataBindings.Add("Text", bs, "Brutto")
txt_kategorie.DataBindings.Add("Text", bs, "Kategorie")
txt_bezugsquelle.DataBindings.Add("Text", bs, "Bezugsquelle")
txt_einheit.DataBindings.Add("Text", bs, "Einheit")
chk_aktiv.DataBindings.Add("Checked", bs, "Aktiv")
End Sub
Private Sub btn_artikel_vor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_artikel_vor.Click
bs.MoveNext()
End Sub
Private Sub btn_artikel_zurück_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_artikel_zurück.Click
bs.MovePrevious()
End Sub
End Class | |
| 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 |
|
|
Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 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
|
|