Private dv_stand As DataView
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim dt_stand As New DataTable("stand")
        dv_stand = dt_stand.DefaultView
 
        Dim dr_stand As DataRow
 
        dt_stand.Columns.Add("RG", GetType(Integer))
        dt_stand.Columns.Add("STNR")
        dt_stand.Columns.Add("RDN", GetType(Integer))
 
        dr_stand = dt_stand.NewRow()
        dr_stand("RG") = 1
        dr_stand("STNR") = "1"
        dr_stand("RDN") = 3
        dt_stand.Rows.Add(dr_stand)
 
        dr_stand = dt_stand.NewRow()
        dr_stand("RG") = 1
        dr_stand("STNR") = "1"
        dr_stand("RDN") = 7
        dt_stand.Rows.Add(dr_stand)
 
        dr_stand = dt_stand.NewRow()
        dr_stand("RG") = 1
        dr_stand("STNR") = "1"
        dr_stand("RDN") = 2
        dt_stand.Rows.Add(dr_stand)
 
        DataGridView1.DataSource = dv_stand
 
        dv_stand.Sort = "RDN Desc"
 
    End Sub
 
    Private Sub NewRow_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles NewRow.Click
        Dim drv As DataRowView
        drv = dv_stand.AddNew()
        drv("RG") = 1
        drv("STNR") = "xxx"
        drv("RDN") = 1
    End Sub

________
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