15.06 JJ für MS

This commit is contained in:
SchreiberM
2016-06-15 11:07:47 +02:00
parent 621a7f0fff
commit 6a708d29e4
10 changed files with 325 additions and 551 deletions

View File

@@ -529,11 +529,11 @@ Public Class ClassControlValues
Dim enableDT As DataTable = ClassDatabase.Return_Datatable(DependingControlSQL)
If dt.Rows.Count = 1 Then
Dim enabled As Boolean = CBool(dt.Rows(0).Item(0))
If enableDT.Rows.Count = 1 Then
Dim enabled As Boolean = CBool(enableDT.Rows(0).Item(0))
DependingControl.Enabled = enabled
Else
ClassLogger.Add(" >> Attention: RowCount for enabling control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & DependingControlSQL & "'")
ClassLogger.Add(" >> Attention in Enable_Depending_Controls: RowCount for enabling control was '" & enableDT.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & DependingControlSQL & "'")
End If
End If
Next