Private dt As System.Data.DataTable
 
    Private Function getDataTable() As System.Data.DataTable
        Dim dt As New System.Data.DataTable("Zukaufteile")
        Dim col0 As System.Data.DataColumn = dt.Columns.Add("Teile-Nr", GetType( _
          System.String))
        col0.DefaultValue = String.Empty
 
        Dim col1 As System.Data.DataColumn = dt.Columns.Add("Anzahl", GetType( _
          System.String))
        col1.DefaultValue = String.Empty
        '....
        '.... 
        Dim col8 As System.Data.DataColumn = dt.Columns.Add("Einheitspreis", _
          GetType(System.String))
        col8.DefaultValue = String.Empty
 
        Return dt
    End Function
 
 
    Private Sub formatDataGridView(ByVal dgv As DataGridView)
        ' Datum formatieren:
        dgv.Columns.Remove("Teile-Nr")
        Dim tbc1 As New DataGridViewTextBoxColumn()
        tbc1.DataPropertyName = "Teile-Nr"
        tbc1.HeaderText = "Teile-Nr"
        tbc1.Width = 60
        'tbc1.DefaultCellStyle.Format = "d"
        tbc1.DefaultCellStyle.Alignment = _
          DataGridViewContentAlignment.MiddleLeft
        tbc1.DisplayIndex = 0
        dgv.Columns.Add(tbc1)
        '....
        '....
        dgv.Columns.Remove("Einheitspreis")
        Dim tbc9 As New DataGridViewTextBoxColumn()
        tbc9.DataPropertyName = "Einheitspreis"
        tbc9.HeaderText = "Einheitspreis"
        tbc9.Width = 40
        'tbc9.DefaultCellStyle.Format = "d"
        tbc9.DefaultCellStyle.Alignment = _
          DataGridViewContentAlignment.MiddleLeft
        tbc9.DisplayIndex = 8
        dgv.Columns.Add(tbc9)
 
    End Sub
 
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        dt = getDataTable()
        DataGridView1.DataSource = dt          ' Datengitter an DataTable 
        ' anbinden
        formatDataGridView(DataGridView1)      ' ... und formatieren
 
        MyBase.OnLoad(e)
    End Sub
 
    Private Sub CMB_Datei_laden_Click(sender As System.Object, e As _
      System.EventArgs) Handles CMB_Datei_laden.Click
        dt.ReadXml("C:\temp\Test.xml")
End Sub
 
    Private Sub CMB_Datei_speichern_Click(sender As System.Object, e As _
      System.EventArgs) Handles CMB_Datei_speichern.Click
        dt.WriteXml("C:\temp\Test.xml", XmlWriteMode.WriteSchema)
End Sub

    Private Sub CMB_Daten_speichern_Click(sender As System.Object, e As _
      System.EventArgs) Handles CMB_Daten_speichern.Click
        Dim n As Integer = DataGridView1.Rows.Add()
        Try
            With DataGridView1
                .Rows.Item(n).Cells(0).Value = TB_TNR.Text
                .Rows(n).Cells(0).ValueType.ToString()
                '....
                '....
                .Rows.Item(n).Cells(8).Value = TB_EPREIS.Text
                .Rows(n).Cells(8).ValueType.ToString()
            End With
        Catch ex As System.Exception
            MsgBox("Fehler bei der Datenübernahme in das DGV!" & vbCrLf & _
              ex.Message, MsgBoxStyle.Information, "Information!")
        End Try
    End Sub

mfg.

Dirk