Hallo ich bin ein Neuling in Sachen DGV und habe mich schon etwas umgeschaut, jedoch lässt sich mein Problem nirgends finden.
Ich habe zuerst eine LIst (of Class) an die DGV geunden, jedoch festgestellt, dass dies eher unpraktisch ist.
Dann habe ich eine Binding LIst (of Class) an die DGV gebunden und festfestellt, dass das sehr kompatibel ist, jedoch konnte ich den Ihnalt der DGV nicht über die Bindinglist speichern bzw die Binding LIst nicht an eine Datatable binden oder wie auch immer man das macht..
Also habe ich eine schlichte Datatable erstellt (mit einem tränenden Auge um die Binding list), wo die DGV auch gespeichert wird, jedoch ist der Ihnalt dann einfach nicht vorhanden, also die XML-Datei ist dann einfach nicht so wie sie sein sollte...
hier der Code
Ich habe zuerst eine LIst (of Class) an die DGV geunden, jedoch festgestellt, dass dies eher unpraktisch ist.
Dann habe ich eine Binding LIst (of Class) an die DGV gebunden und festfestellt, dass das sehr kompatibel ist, jedoch konnte ich den Ihnalt der DGV nicht über die Bindinglist speichern bzw die Binding LIst nicht an eine Datatable binden oder wie auch immer man das macht..
Also habe ich eine schlichte Datatable erstellt (mit einem tränenden Auge um die Binding list), wo die DGV auch gespeichert wird, jedoch ist der Ihnalt dann einfach nicht vorhanden, also die XML-Datei ist dann einfach nicht so wie sie sein sollte...
hier der Code
VB.NET-Quellcode
- Imports System.io
- Public Class Form3
- Dim d_datenspeicher As New DataTable
- Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- d_datenspeicher.TableName = "d_fische"
- tabelle1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
- tabelle1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
- tabelle1.DataSource = d_datenspeicher
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- tabelle1.Rows(0).Cells(0).Value = TextBox1.Text
- tabelle1.Rows(0).Cells(1).Value = TextBox2.Text
- tabelle1.Rows(0).Cells(2).Value = TextBox3.Text
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Dim _datafile As New FileInfo(Pfad" & d_datenspeicher.TableName & ".xml")
- d_datenspeicher.WriteXml(_datafile.FullName)
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Visual_Prog“ ()