diff --git a/app/DD_PM_WINDREAM/ClassDragDrop.vb b/app/DD_PM_WINDREAM/ClassDragDrop.vb index fd48f38..b36b079 100644 --- a/app/DD_PM_WINDREAM/ClassDragDrop.vb +++ b/app/DD_PM_WINDREAM/ClassDragDrop.vb @@ -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