Dim row As String() = New String() {"Spalte 1", "Spalte 2", "Spalte 3", "Spalte" & _
  "4"}
                                    lbIn.Rows.Add(row)

Visual Basic FTW!!

Visual Basic FTW!!

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Public Class Form1
 
    Dim dt As New DataTable
    Const datei As String = "D:\anschriften.xml"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Button1.Text = "Daten neu"
        Button2.Text = "Daten speichern"
        Button3.Text = "Daten leeren"
        Button4.Text = "Daten auslesen"
 
        dt.Columns.Add("Nachname")
        dt.Columns.Add("Vorname")
        dt.Columns.Add("Wohnort")
 
        dt.TableName = "Anschriften"
 
        DataGridView1.DataSource = dt
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        dt.Rows.Add("Irgendwer", "Irene", "Irgendwo")
        dt.Rows.Add("Nirdendwer", "Norbert", "Nirgends")
        dt.Rows.Add("Wiedehopf", "Wilhelm", "Wiesbaden")
        dt.Rows.Add("Wendelin", "Wum", "Mainz")
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
        dt.WriteXml(datei)
 
        MessageBox.Show("Die Daten wurden als XML-Datei gespeichert!")
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        dt.Clear()
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        dt.ReadXml(datei)
    End Sub
End Class

EALA FREYA FRESENA

'Das Schema der Tabelle muss mit ausgegeben werden:
 
dt.WriteXml(FileName, XmlWriteMode.WriteSchema)

Eine nicht behandelte Ausnahme des Typs "System.ArgumentException" ist in _
  System.Data.dll aufgetreten.
 
Zusätzliche Informationen: Der Eingabearray ist länger als die Anzahl der _
  Spalten in dieser Tabelle.

Visual Basic FTW!!

EALA FREYA FRESENA

EALA FREYA FRESENA

lbIn.DataSource = dtIn
With dtIn.Columns
            .Add("Erw/Kind", System.Type.GetType("System.String"))
            .Add("Platz", System.Type.GetType("System.String"))
            .Add("ID", System.Type.GetType("System.String"))
            .Add("EAN", System.Type.GetType("System.String"))
        End With
 
dtIn.Rows.Add("Erw", "Vorne", "1234", "12345678")

Visual Basic FTW!!

Beitrag wurde zuletzt am 19.01.13 um 20:07:18 editiert.