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

MS Structure Nodes

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-10-02 17:15:26 +02:00
parent 04ffe61b4d
commit 609df5b5c5
39 changed files with 2504 additions and 2023 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
app/DD-Record-Organizer/ClassControlValues.vb
View File

@@ -188,8 +188,8 @@ Public Class ClassControlValues
Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
' Wert per LINQ aus DT_ControlValues suchen der zur aktuellen controlId passt
Dim values As List(Of Object) = (From row In DT_ControlValues.AsEnumerable()
Where row.Item("CONTROL_ID") = ControlId
Select row.Item("VALUE")).ToList()
Where row.Item("CONTROL_ID") = ControlId
Select row.Item("VALUE")).ToList()
If TypeOf control Is GroupBox Then
Dim groupbox As GroupBox = DirectCast(control, GroupBox)
LoadControlValues(RecordId, ParentRecordId, FormId, groupbox.Controls, Entity_ID, True)
@@ -244,9 +244,9 @@ Public Class ClassControlValues
End Sub
Public Shared Sub LoadControlValue(recordId As Integer, parentRecordId As Integer, controlId As Integer, control As Control, values As List(Of Object), entity_ID As Integer)
Try
' Für die meisten Controls wird nur das erste Element der Liste benötigt
Dim value As String = Nothing
' Try
' Für die meisten Controls wird nur das erste Element der Liste benötigt
Dim value As String = Nothing
If values.Count > 0 Then
value = values.Item(0)
@@ -306,10 +306,10 @@ Public Class ClassControlValues
End If
End Select
Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadControlValue: " & ex.Message, True)
MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message)
End Try
'Catch ex As Exception
' ClassLogger.Add("Unexpected Error in LoadControlValue: " & ex.Message, True)
' MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message)
'End Try
End Sub