Änderung Implementierung Checkbox checks

Customers/LKWs.aspx.vb

@@ -80,7 +80,7 @@ Partial Class LKWS
             End If
             Dim chbx2_Kz_ab As CheckBox = New CheckBox()
             chbx2_Kz_ab.Enabled = False
-            If (l1.Abgemeldet = True) Then
+            If l1.Abgemeldet = True Then
                 chbx2_Kz_ab.Checked = True
             Else
                 chbx2_Kz_ab.Checked = False
@@ -178,9 +178,19 @@ Partial Class LKWS
             tc_Nationalitaet.Text = String.Empty
             tr2.Cells.Add(tc_Nationalitaet)
             Dim cbVerk_Such As CheckBox = New CheckBox()
+            If l2.Verkauft = True Then
+                cbVerk_Such.Checked = True
+            Else
+                cbVerk_Such.Checked = False
+            End If
             tc_Verk.Controls.Add(cbVerk_Such)
             tr2.Cells.Add(tc_Verk)
             Dim cb_Kz_An As CheckBox = New CheckBox()
+            If l2.KZAenderung = True Then
+                cb_Kz_An.Checked = True
+            Else
+                cb_Kz_An.Checked = False
+            End If
             tc_KZ_An.Controls.Add(cb_Kz_An)
             tc_Vermerk.Text = l2.Vermerk.ToString
             tr2.Cells.Add(tc_Vermerk)
@@ -224,9 +234,19 @@ Partial Class LKWS
             tc_Nationalitaet_M.Text = String.Empty
             tr2.Cells.Add(tc_Nationalitaet_M)
             Dim cb_Verk_M As CheckBox = New CheckBox()
+            If (li_M.Verkauft = True) Then
+                cb_Verk_M.Checked = True
+            Else
+                cb_Verk_M.Checked = False
+            End If
             tc_Verk_M.Controls.Add(cb_Verk_M)
             tr2.Cells.Add(tc_Verk_M)
             Dim cb_M_2 As CheckBox = New CheckBox()
+            If (li_M.KZAenderung = True) Then
+                cb_M_2.Checked = True
+            Else
+                cb_M_2.Checked = False
+            End If
             tc_KzAn_M.Controls.Add(cb_M_2)
             tr2.Cells.Add(tc_KzAn_M)
             If IsNothing(li_M.Vermerk) = True Then