@@ -163,9 +163,7 @@ 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
|
||||
@@ -225,9 +223,7 @@ 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
|
||||
@@ -277,7 +273,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 - ControlID: " & controlId.ToString & " - Error: " & ex.Message, True)
|
||||
ClassLogger.Add("Unexpected Error in LoadControlValue: " & ex.Message, True)
|
||||
MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message)
|
||||
End Try
|
||||
|
||||
@@ -458,7 +454,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
|
||||
|
||||
Reference in New Issue
Block a user