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

jj 11.08 fix groupbox bug

Browse Source
This commit is contained in:
JenneJ
2016-08-11 11:59:10 +02:00
parent 3a8c24e2a3
commit 7c45720090
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
app/DD-Record-Organiser/ClassControlValues.vb
View File

@@ -145,7 +145,7 @@ Public Class ClassControlValues
Return missingValues.Distinct().ToList() Return missingValues.Distinct().ToList()
End Function End Function
Public Shared Sub LoadControlValues(RecordId As Integer, ParentRecordId As Integer, FormId As Integer, controls As Control.ControlCollection, Entity_ID As Integer) Public Shared Sub LoadControlValues(RecordId As Integer, ParentRecordId As Integer, FormId As Integer, controls As Control.ControlCollection, Entity_ID As Integer, Optional isGroupbox As Boolean = False)
Try Try
Dim sw As New Stopwatch Dim sw As New Stopwatch
sw.Start() sw.Start()
@@ -161,9 +161,10 @@ Public Class ClassControlValues
If controls.Count = 0 Then If controls.Count = 0 Then
ClassLogger.Add("the control-Collection in LoadControlValuesNeu is empty!", True) ClassLogger.Add("the control-Collection in LoadControlValuesNeu is empty!", True)
ENTITY_RELOAD_AFT_CONTROL_LOAD = True If (Not isGroupbox) Then
ENTITY_RELOAD_AFT_CONTROL_LOAD = True
End If
Exit Sub Exit Sub
End If End If
' Zuerst alle Controls leeren ' Zuerst alle Controls leeren
@@ -191,7 +192,7 @@ Public Class ClassControlValues
Select row.Item("VALUE")).ToList() Select row.Item("VALUE")).ToList()
If TypeOf control Is GroupBox Then If TypeOf control Is GroupBox Then
Dim groupbox As GroupBox = DirectCast(control, GroupBox) Dim groupbox As GroupBox = DirectCast(control, GroupBox)
LoadControlValues(RecordId, ParentRecordId, FormId, groupbox.Controls, Entity_ID) LoadControlValues(RecordId, ParentRecordId, FormId, groupbox.Controls, Entity_ID, True)
Else Else
LoadControlValue(RecordId, ParentRecordId, ControlId, control, values, Entity_ID) LoadControlValue(RecordId, ParentRecordId, ControlId, control, values, Entity_ID)
End If End If