TestGUI: Fix

GUIs.Test.TestGUI/frmRelations.vb

@@ -25,14 +25,19 @@ Public Class frmRelations
 
         DetailRow = oCronDetails.Rows.Item(0)
         JobResult = New JobResult() With {
-            .Table = oUsers,
+            .Tables = New List(Of JobResult.ResultTable) From {
-            .TableRelationColumn = "GUID",
+                New JobResult.ResultTable() With {
-            .ChildTable = oGroupUser,
+                    .Table = oUsers,
-            .ChildRelationColumn = "USER_ID"
+                    .TableRelationColumn = "GUID",
+                    .ChildTable = oGroupUser,
+                    .ChildRelationColumn = "USER_ID"
+                }
+            }
         }
+
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        JobListener.SaveDataTables(JobResult, DetailRow)
+        JobListener.SaveDataTables(JobResult.Tables.First)
     End Sub
 End Class