From fcc521a994ec5e5e4229c06afded0a41a2b593a0 Mon Sep 17 00:00:00 2001
From: JenneJ <j.jenne@didalog.de>
Date: Mon, 2 May 2016 14:52:40 +0200
Subject: [PATCH] jj 02.05.16

---
 app/DD-Record-Organiser/ClassDatabase.vb         | 2 +-
 app/DD-Record-Organiser/frmConstructor_Main.resx | 3 +++
 app/DD-Record-Organiser/frmConstructor_Main.vb   | 5 ++++-
 3 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/app/DD-Record-Organiser/ClassDatabase.vb b/app/DD-Record-Organiser/ClassDatabase.vb
index 02e1b40..c897a3a 100644
--- a/app/DD-Record-Organiser/ClassDatabase.vb
+++ b/app/DD-Record-Organiser/ClassDatabase.vb
@@ -83,7 +83,7 @@ Public Class ClassDatabase
             Dim match As System.Text.RegularExpressions.Match = regex.Match(sql)
 
             If match.Success Then
-                Return Nothing
+                'Return Nothing
             End If
 
             Dim connectionString As String
diff --git a/app/DD-Record-Organiser/frmConstructor_Main.resx b/app/DD-Record-Organiser/frmConstructor_Main.resx
index 8394ebb..5a013c1 100644
--- a/app/DD-Record-Organiser/frmConstructor_Main.resx
+++ b/app/DD-Record-Organiser/frmConstructor_Main.resx
@@ -363,6 +363,9 @@
   <data name="TCDetails.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 25</value>
   </data>
+  <data name="pnlDetails.AutoScroll" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
   <data name="pnlDetails.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Fill</value>
   </data>
diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb
index 97f26b2..bc4c952 100644
--- a/app/DD-Record-Organiser/frmConstructor_Main.vb
+++ b/app/DD-Record-Organiser/frmConstructor_Main.vb
@@ -718,6 +718,9 @@ Public Class frmConstructor_Main
                 Check_Record_Changed()
                 DisableEditMode()
                 VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
+                ' muss vor show selected record data kommen,
+                ' sodass die datasource für die angehakten werte existiert (checked list box)
+                ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, Grid_RecordID, PARENT_ID, CtrlBuilder.AllControls, ENTITY_ID)
                 Show_Selected_Record_Data(Grid_RecordID, False)
 
                 RIGHT_ONLY_READ = False
@@ -1460,7 +1463,7 @@ Public Class frmConstructor_Main
 
         ' Abhängige Listen laden
         CtrlBuilder.WatchRecordChanges = False
-        ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls, ENTITY_ID)
+        'ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls, ENTITY_ID)
         ClassControlValues.Enable_Depending_Controls(ENTITY_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls, ENTITY_ID)
         CtrlBuilder.WatchRecordChanges = True