MS19042016

app/DD-Record-Organiser/ClassControlValues.vb

@@ -163,7 +163,9 @@ Public Class ClassControlValues
 
             For Each control As Control In controls
                 Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
-
+                If ControlId = 810 Then
+                    Console.WriteLine("Obacht")
+                End If
                 ' 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
@@ -223,7 +225,9 @@ Public Class ClassControlValues
         Try
             ' Für die meisten Controls wird nur das erste Element der Liste benötigt
             Dim value As String = Nothing
-
+            If controlId = 810 Then
+                Console.WriteLine("Obacht")
+            End If
             If values.Count > 0 Then
                 value = values.Item(0)
             End If
@@ -273,7 +277,7 @@ Public Class ClassControlValues
                     ClassLogger.Add(" >> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False)
             End Select
         Catch ex As Exception
-            ClassLogger.Add("Unexpected Error in LoadControlValue: " & ex.Message, True)
+            ClassLogger.Add("Unexpected Error in LoadControlValue - ControlID: " & controlId.ToString & " - Error: " & ex.Message, True)
             MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message)
         End Try
 
@@ -454,7 +458,7 @@ Public Class ClassControlValues
             Case GetType(CustomComboBox)
                 Dim combo As CustomComboBox = DirectCast(control, CustomComboBox)
                 combo.SelectedIndex = -1
-                combo.Text = String.Empty
+                '  combo.Text = String.Empty
 
             Case GetType(CheckBox)
                 DirectCast(control, CheckBox).Checked = False