AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

ComboBOx Optimierung

Browse Source
This commit is contained in:
Developer01
2026-01-30 12:13:08 +01:00
parent df4a8df25a
commit a53bfee8d5
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
app/TaskFlow/frmValidator.vb
View File

@@ -1062,16 +1062,19 @@ Public Class frmValidator
MyValidationLogger.Debug("SQL HasOnlySimplePatterns!") MyValidationLogger.Debug("SQL HasOnlySimplePatterns!")
oSQL = clsPatterns.ReplaceInternalValues(oSQL) oSQL = clsPatterns.ReplaceInternalValues(oSQL)
oSQL = clsPatterns.ReplaceControlValues(oSQL, PanelValidatorControl, True) oSQL = clsPatterns.ReplaceControlValues(oSQL, PanelValidatorControl, True)
'Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConId(oSQL, oCONID, $"CreateControls - oControlID: {oControlID}")
Dim oDT As DataTable = DatabaseFallback.GetDatatable(New GetDatatableOptions(oSQL, DatabaseType.ECM) With {
.ConnectionId = oCONID
})
If Not IsNothing(oDT) Then Dim oDT As DataTable = GetCachedDatatable(oSQL, oCONID)
oComboBox.BeginUpdate()
oComboBox.DataSource = Nothing
If Not IsNothing(oDT) AndAlso oDT.Rows.Count > 0 Then
Dim list As New List(Of String)
For Each oRow As DataRow In oDT.Rows For Each oRow As DataRow In oDT.Rows
oComboBox.Items.Add(oRow.Item(0)) list.Add(oRow.Item(0))
Next Next
oComboBox.DataSource = list
End If End If
oComboBox.SelectedIndex = -1
oComboBox.EndUpdate()
End If End If
Catch ex As Exception Catch ex As Exception
MyValidationLogger.Warn($"Unexpected error in CMB GetValues SQL - Error: {ex.Message}") MyValidationLogger.Warn($"Unexpected error in CMB GetValues SQL - Error: {ex.Message}")