Bugfix, Auswerung, APIO

2024-10-22 17:08:52 +02:00
parent e7d2164ace
commit ca19bbfa09
4 changed files with 12 additions and 9 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
@@ -691,7 +691,10 @@ Public Class SQL

        If dt IsNot Nothing Then
            For Each r As DataRow In dt.Rows
-                list.Add(r(srchFieldClearName))
+                If Not IsDBNull(r(srchFieldClearName)) Then
+                    list.Add(r(srchFieldClearName))
+                End If
+
            Next
        End If
        Return list