Hallo Zusammen,
ich möchte generierte Daten in ein Dataset schreiben. Das Dataset ist typisiert, die Tabellen untereinander mit entsprechenden Key's verknüpft.
Das ganze läuft mit einem DataSet und in einer xml-Datei gespeichert.
In der MainForm sind alle Tabels über die Bindingsource in den DGV dargestellt.
Die Daten werden wie folgt eingelesen:
Wenn die MsgBox aufpopt sind alle Datensätze sichtbar und auch die Key-Werte stimmen. Nach drücken von Ok ist das DGV wieder leer , ebenso die Datatables .
Bei Eingabe der Daten von Hand werden die Daten behalten.
Vielen Dank!
ich möchte generierte Daten in ein Dataset schreiben. Das Dataset ist typisiert, die Tabellen untereinander mit entsprechenden Key's verknüpft.
Das ganze läuft mit einem DataSet und in einer xml-Datei gespeichert.
In der MainForm sind alle Tabels über die Bindingsource in den DGV dargestellt.
Die Daten werden wie folgt eingelesen:
VB.NET-Quellcode
- ' So sollte es funtzen, tuts aber nicht...
- ' https://msdn.microsoft.com/de-de/library/5ycd1034.aspx
- #Const WithDataTable = True
- #If WithDataTable Then '
- Dim Kontoauszug As DsQbDt.DtKontoAuszugRow ' eine DtKontoAuszugRow erzeugen
- Kontoauszug = DsQbDt.DtKontoAuszug.NewDtKontoAuszugRow ' und diese auf eine neue KontoAuszugRow setzten
- #Else
- ' oder wie gehabt per DoppelCast eine typisierten KontoasuzugsRow erzeugen
- Dim KontoAuszug = DirectCast(DirectCast(DtKontoAuszugBindingSource.AddNew, DataRowView).Row, DtKontoAuszugRow)
- #End If
- With Kontoauszug
- .KontoID = lID
- .PdfFileName = FileName
- .Saldo = lSaldo
- .Datum = lDatum
- End With
- DsQbDt.DtKontoAuszug.AddDtKontoAuszugRow(Kontoauszug)
- MsgBox(" Es sind " & DsQbDt.DtKontoAuszug.Count.ToString & " KontoAuszüge importiert worden!", MsgBoxStyle.OkOnly)
Wenn die MsgBox aufpopt sind alle Datensätze sichtbar und auch die Key-Werte stimmen. Nach drücken von Ok ist das DGV wieder leer , ebenso die Datatables .
Bei Eingabe der Daten von Hand werden die Daten behalten.
Vielen Dank!