EDMIService: Fix replacing tables

GUIs.Test.TestGUI/frmRelations.vb

@@ -5,6 +5,9 @@ Imports DigitalData.Services.EDMIService
 Public Class frmRelations
     Private DB As MSSQLServer
     Private LogConfig As LogConfig
+    Private JobResult As JobResult
+    Private JobListener As JobListener
+    Private DetailRow As DataRow
 
     Private Sub frmRelations_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         LogConfig = New LogConfig(LogConfig.PathType.CustomPath, Application.StartupPath)
@@ -18,13 +21,18 @@ Public Class frmRelations
         oGroupUser.TableName = "TBDD_GROUPS_USER"
 
         Dim oCronDetails As DataTable = DB.GetDatatable("SELECT * FROM TBAPPSERV_CRON_DETAIL WHERE DT_NAME = 'TBDD_USER'")
+        JobListener = New JobListener(LogConfig, DB, oDataSet)
 
-        Dim oListener As New DigitalData.Services.EDMIService.JobListener(LogConfig, DB, oDataSet)
-        oListener.SaveDataTables(New DigitalData.Services.EDMIService.JobResult() With {
+        DetailRow = oCronDetails.Rows.Item(0)
+        JobResult = New JobResult() With {
             .Table = oUsers,
             .TableRelationColumn = "GUID",
             .ChildTable = oGroupUser,
             .ChildRelationColumn = "USER_ID"
-        }, oCronDetails.Rows.Item(0))
+        }
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        JobListener.SaveDataTables(JobResult, DetailRow)
     End Sub
 End Class