TestGUI: Fix

This commit is contained in:
Jonathan Jenne 2020-12-22 14:42:11 +01:00
parent 9b10bc80e1
commit 35c13eb81d

View File

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