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

JJ 09.05.16

Browse Source
This commit is contained in:
JenneJ
2016-05-09 16:49:46 +02:00
parent 1f374eb0f6
commit 88a971080b
5 changed files with 34 additions and 1634 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
app/DD-Record-Organiser/ClassControlBuilder.vb
View File

@@ -289,7 +289,8 @@ Public Class ClassControlBuilder
' DependingControlId bezeichnet das Control, das die Abhängigkeit enthält
Dim dependingControlId As Integer = row.Item("GUID")
Dim panel As Panel = DirectCast(control.Parent, Panel)
Dim panel As Panel = CtrlBuilder.MasterPanel
'Dim panel As Panel = DirectCast(control.Parent, Panel)
' Über die Id das Control finden
Dim dependingControl As Control = panel.Controls.OfType(Of Control)().Where(Function(c As Control)
Return DirectCast(c.Tag, ClassControlMetadata).Id = dependingControlId
@@ -464,9 +465,13 @@ Public Class ClassControlBuilder
If CURRENT_RECORD_ID = 0 Then
Exit Sub
End If
If CtrlCommandUI.IsInsert = False Then
ClassControlCommandsUI.UpdateMultipleValues(controlId, CURRENT_RECORD_ID, CONTROL_VALUE)
End If
' Da wir beim Klick auf Hinzfügen einen Record anlegen,
' muss UpdateMultipleValues auch aufgerufen werden, wenn wir IsInsert = True ist
'If CtrlCommandUI.IsInsert = False Then
ClassControlCommandsUI.UpdateMultipleValues(controlId, CURRENT_RECORD_ID, CONTROL_VALUE)
'End If
Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL)