new

VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb

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