AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 07.03.17 fix relation bug & add unique constraint to DT_RESULT

Browse Source
This commit is contained in:
JenneJ 2017-03-07 15:42:20 +01:00
parent d821a07c18
commit 2f68c0dad5
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
app/DD-Record-Organizer/ClassWindreamDocGrid.vb
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