Public Class frmViews
 
    Dim dt As New DataTable
    Dim bs As New BindingSource
    Dim dgv As New DataGridView With {.Parent = Me, .DataSource = bs}
 
    Dim WithEvents btnTausch As New Button With _
        {.Parent = Me, .Text = "Tauschen", .Top = 250}
 
    Private Sub frmViews_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        dt.Columns.Add("Pos", GetType(Integer))
        dt.Columns.Add("Feld", GetType(String))
 
        dt.Rows.Add(10, "Butter")
        dt.Rows.Add(20, "Bier")
        dt.Rows.Add(30, "Gans")
        dt.Rows.Add(40, "Hemd")
 
        bs.DataSource = dt
        bs.Sort = "Pos Asc"
    End Sub
 
 
    Private Sub TauschMethode()
 
        If bs.Position = -1 Then Exit Sub
 
        Dim a As String = _
            CType(CType(bs.Current, DataRowView)("Feld"), String)
 
        Dim dv As DataView = New DataView(dt)
        dv.Sort = "Feld"
        Dim index As Integer = dv.Find(a)
 
        Me.Text = CStr(index)
 
        If index > 0 Then
            Dim Pos_Copy As Integer = CType(dv(index)("Pos"), Integer)
 
            dv(index).BeginEdit()
            dv(index)("Pos") = dv(index - 1)("Pos")
            dv(index).EndEdit()
 
            dv(index - 1).BeginEdit()
            dv(index - 1)("Pos") = Pos_Copy
            dv(index - 1).EndEdit()
        End If
 
    End Sub
 
 
    Private Sub btnTausch_Click(sender As Object, _
        e As System.EventArgs) Handles btnTausch.Click
 
        TauschMethode()
    End Sub
End Class