Private Sub TauschMethode2()
 
        If bs.Position = -1 Then Exit Sub
 
        Dim a As String = _
          CType(CType(bs.Current, DataRowView)("Pos"), String)
 
        Dim dv As DataView = New DataView(dt)
        dv.Sort = "Pos"
        Dim index As Integer = dv.Find(a)
 
        If index > 0 Then
            'Positionswerte zwischenspeichern
            Dim Position As Integer = _
                      CType(dv(index)("Pos"), Integer)
            Dim PosMinus1 As Integer = _
                      CType(dv(index - 1)("Pos"), Integer)
 
            'Tausch der Positionswerte unter Nutzung der Find-Methode
            dv(dv.Find(Position))("Pos") = -99999
            dv(dv.Find(PosMinus1))("Pos") = Position
            dv(dv.Find(-99999))("Pos") = PosMinus1
 
        End If
 
    End Sub