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 @@ 0, 25 + + True + Fill 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