jj: handle dragdrop when row is nothing

This commit is contained in:
Jonathan Jenne 2018-06-14 15:09:16 +02:00
parent 23ee0056ff
commit 3a9338b8a6

View File

@ -57,12 +57,14 @@ Public Class ClassDragDrop
Dim row As DataRow = view.GetDataRow(downHitInfo.RowHandle)
Dim source As String = view.GridControl.Name
dragDropData = row.Item("GUID") & "|" & source
If Not IsNothing(row) Then
dragDropData = row.Item("GUID") & "|" & source
view.GridControl.DoDragDrop(dragDropData, DragDropEffects.Move)
downHitInfo = Nothing
view.GridControl.DoDragDrop(dragDropData, DragDropEffects.Move)
downHitInfo = Nothing
DevExpress.Utils.DXMouseEventArgs.GetMouseArgs(e).Handled = True
DevExpress.Utils.DXMouseEventArgs.GetMouseArgs(e).Handled = True
End If
End If
End If
Catch ex As Exception