Gruß
Christoph

            ''' <summary>
            ''' Eigentliche Sort Methode 
            ''' </summary>
            ''' <param name="m_grid"></param>
            ''' <param name="FromRow"></param>
            ''' <param name="ToRow"></param>
            ''' <param name="SortKeys"></param>
            ''' <remarks></remarks>
            Private Shared Sub SortWithoutDialogDoIt(ByVal m_grid As _
              System.Windows.Forms.DataGridView _
                               , ByVal FromRow As Integer _
                               , ByVal ToRow As Integer _
                               , ByVal SortKeys As List(Of SortColumn))
 
                'Lokale Hilfsgroessen fuer vertauschen von zwei Rows im 
                ' DataGridView 
                Dim R1 As DataGridViewRow = Nothing
                Dim R2 As DataGridViewRow = Nothing
 
                'Plausipruefungen und Ausfuehren der Sortierung 
                If (SortKeys.Count > 0) And (FromRow < ToRow) Then
                    For i As Integer = FromRow To ToRow - 1
                        For j As Integer = i + 1 To ToRow
                            If SwapNecessary(m_grid, i, j, SortKeys, 0) = True _
                              Then
 
                                'Vertausche zwei ROWs gegeneinander 
                                R1 = m_grid.Rows(i)
                                R2 = m_grid.Rows(j)
 
                                m_grid.Rows.RemoveAt(j)
                                m_grid.Rows.RemoveAt(i)
 
                                m_grid.Rows.Insert(i, R2)
                                m_grid.Rows.Insert(j, R1)
                            Else
                            End If
                        Next
                    Next
                Else
                    'Keine Sortierungskeys verfuegbar bzw. FromRow / ToRow 
                    ' ungueltig 
                End If
 
            End Sub

    Private mdrect As Rectangle
    Private mdindex As Integer
 
    Private Sub dgv_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles dgv.DragEnter
        e.Effect = DragDropEffects.Move
    End Sub
 
    Private Sub dgv_MouseMove(ByVal sender As Object, ByVal e As _
      MouseEventArgs) Handles dgv.MouseMove
        If e.Button And MouseButtons.Left = MouseButtons.Left Then
            If mdrect <> Rectangle.Empty AndAlso Not mdrect.Contains(e.X, _
              e.Y) Then
                Dim rtd As DataGridViewRow = dgv.Rows(mdindex)
                Debug.WriteLine("Row to drag " & rtd.Cells(0).ToString())
                Dim dropEffect As DragDropEffects = dgv.DoDragDrop(rtd, _
                  DragDropEffects.Move)
            End If
        End If
    End Sub
 
    Private Sub dgv_MouseDown(ByVal sender As Object, ByVal e As _
      MouseEventArgs) Handles dgv.MouseDown
        mdindex = dgv.HitTest(e.X, e.Y).RowIndex
        If mdindex <> -1 Then
            Dim ds As Size = SystemInformation.DragSize
            mdrect = New Rectangle(New Point(e.X - (ds.Width / 2), e.Y - ( _
              ds.Height / 2)), ds)
        Else
            mdrect = Rectangle.Empty
        End If
    End Sub
 
    Private Sub dgv_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) _
      Handles dgv.DragDrop
        Dim cp As Point = dgv.PointToClient(New Point(e.X, e.Y))
        Dim dropindex As Integer = dgv.HitTest(cp.X, cp.Y).RowIndex()
        If e.Effect = DragDropEffects.Move Then
            Dim rtm As DataGridViewRow = CType(e.Data.GetData(GetType( _
              DataGridViewRow)), DataGridViewRow)
            dgv.Rows.RemoveAt(mdindex)
            dgv.Rows.Insert(dropindex, rtm)
        End If
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov

Gruß
Christoph

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov