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 e3e8722..0374d6b 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 26d3bc3..c54c14a 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.vb @@ -745,6 +745,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 @@ -1487,7 +1490,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