Zooflow: Finish user relations

GUIs.ZooFlow/ClassDragDrop.vb

@@ -7,9 +7,22 @@ Imports DigitalData.Modules.Base
 Public Class ClassDragDrop
     Inherits BaseClass
 
+    Public Enum ResultType
+        PrimaryKey
+        RowHandle
+    End Enum
+
     Private downHitInfo As GridHitInfo = Nothing
+    Private SelectedResultType As ResultType
+
     Public Sub New(LogConfig As LogConfig)
         MyBase.New(LogConfig)
+        SelectedResultType = ResultType.PrimaryKey
+    End Sub
+
+    Public Sub New(LogConfig As LogConfig, pResultType As ResultType)
+        MyBase.New(LogConfig)
+        SelectedResultType = pResultType
     End Sub
 
     Public Sub AddGridView(view As GridView)
@@ -62,7 +75,16 @@ Public Class ClassDragDrop
 
                     If Not IsNothing(row) Then
                         Try
-                            dragDropData = row.Item("GUID") & "|" & source
+                            Dim oKey As String
+
+                            Select Case SelectedResultType
+                                Case ResultType.RowHandle
+                                    oKey = downHitInfo.RowHandle
+                                Case Else
+                                    oKey = row.Item("GUID")
+                            End Select
+
+                            dragDropData = $"{oKey}|{source}"
 
                             view.GridControl.DoDragDrop(dragDropData, DragDropEffects.Move)
                             downHitInfo = Nothing