jj 08.03.2016 control abhängigkeiten

This commit is contained in:
JenneJ
2016-03-08 15:45:44 +01:00
parent 72d2f25bcb
commit 9e9c1ee150
3 changed files with 56 additions and 2 deletions

View File

@@ -167,7 +167,7 @@ Public Class ClassControlValues
Dim groupbox As GroupBox = DirectCast(control, GroupBox)
LoadControlValues(RecordId, ParentRecordId, FormId, groupbox.Controls)
Else
LoadControlValueNeu(RecordId, ParentRecordId, ControlId, control, value)
LoadControlValue(RecordId, ParentRecordId, ControlId, control, value)
End If
Next
@@ -178,7 +178,7 @@ Public Class ClassControlValues
End Sub
Private Shared Sub LoadControlValueNeu(recordId As Integer, parentRecordId As Integer, controlId As Integer, control As Control, value As Object)
Private Shared Sub LoadControlValue(recordId As Integer, parentRecordId As Integer, controlId As Integer, control As Control, value As Object)
Try
Select Case control.GetType()
Case GetType(TextBox)