new

VERAG_PROG_ALLGEMEIN/Classes/cDEBundeslaenderPLZ.vb

@@ -40,13 +40,13 @@ Public Class cDEBundeslaenderPLZ
                     cmd.Parameters.AddWithValue("@PLZ", PLZ)
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then
-                        For Each l In VK.getParameterList()
-                            Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable)
+                        For Each li In VK.getParameterList()
+                            Dim propInfo As PropertyInfo = VK.GetType.GetProperty(li.Scalarvariable)
 
-                            If dr.Item(l.Text) Is DBNull.Value Then
+                            If dr.Item(li.Text) Is DBNull.Value Then
                                 propInfo.SetValue(VK, Nothing)
                             Else
-                                propInfo.SetValue(VK, dr.Item(l.Text))
+                                propInfo.SetValue(VK, dr.Item(li.Text))
                             End If
                         Next
                         dr.Close()