KuundenAdresse Zusatz; MDM: UTA-Mautberichterstellung; VZPreise;Teleotec-Doks;MA-AccessCode GRN AT

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -543,12 +543,15 @@ Public Class SQL
     End Function
 
 
-    Function DLookupArray(srchField, table, where, Optional conn_art = "SDL") As List(Of String)
+    Function DLookupArray(srchField, table, where, Optional conn_art = "SDL", Optional srchFieldClearName = "") As List(Of String)
         Dim list As New List(Of String)
         Dim dt = loadDgvBySql("SELECT  " & srchField & "  FROM " & table & " WHERE " & where & "", conn_art)
+
+        If srchFieldClearName = "" Then srchFieldClearName = srchField
+
         If dt IsNot Nothing Then
             For Each r As DataRow In dt.Rows
-                list.Add(r(srchField))
+                list.Add(r(srchFieldClearName))
             Next
         End If
         Return list