This commit is contained in:
SchreiberM
2017-03-07 16:51:55 +01:00

View File

@@ -164,12 +164,21 @@ Public Class ClassWindreamDocGrid
ds.Tables.Add(DT_RESULT)
ds.Tables.Add(DT_DETAILS)
Dim resultTable As DataTable = ds.Tables(0)
Dim detailsTable As DataTable = ds.Tables(1)
' Relation `docIdDetails` erstellen
Dim parentColumn As DataColumn = ds.Tables(0).Columns("docId")
Dim childColumn As DataColumn = ds.Tables(1).Columns("docId")
Dim parentColumn As DataColumn = resultTable.Columns("docId")
Dim childColumn As DataColumn = detailsTable.Columns("docId")
' Unique Constraint für DT_RESULT auf Spalte `docId` erstellen
Dim uniqueConstraint As UniqueConstraint = New UniqueConstraint(parentColumn)
resultTable.Constraints.Add(uniqueConstraint)
Try
ds.Relations.Add("docIdDetails", parentColumn, childColumn)
' Parameter `createConstraints` auf false setzen, um erstellung eines unsinnigen
' `foreignKeyConstraints` zu verhindern
ds.Relations.Add("docIdDetails", parentColumn, childColumn, False)
Catch ex As Exception
ClassLogger.Add(">> Could not set master-detail Relation DocSearch: " & ex.Message, False)
End Try