From 2f68c0dad56f29eb44d248474d43cb9733a2f0c2 Mon Sep 17 00:00:00 2001 From: JenneJ Date: Tue, 7 Mar 2017 15:42:20 +0100 Subject: [PATCH] jj 07.03.17 fix relation bug & add unique constraint to DT_RESULT --- app/DD-Record-Organizer/ClassWindreamDocGrid.vb | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/app/DD-Record-Organizer/ClassWindreamDocGrid.vb b/app/DD-Record-Organizer/ClassWindreamDocGrid.vb index 6d435f0..31ad9db 100644 --- a/app/DD-Record-Organizer/ClassWindreamDocGrid.vb +++ b/app/DD-Record-Organizer/ClassWindreamDocGrid.vb @@ -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