new

VERAG_PROG_ALLGEMEIN/Classes/_BASE.vb

@@ -5,6 +5,7 @@ Imports System.Reflection
 Public Class _BASE
     Property _BASE_id As Integer
     Property _BASE_value As Object = Nothing
+    Property _BASE_value2 As Object = Nothing
 
 
     Public hasEntry = False
@@ -45,13 +46,13 @@ Public Class _BASE
                     cmd.Parameters.AddWithValue("@_BASE_id", _BASE_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