diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb index 6a153cf..6be1542 100644 --- a/Customers/LKWs.aspx.vb +++ b/Customers/LKWs.aspx.vb @@ -70,21 +70,21 @@ Partial Class LKWS End If tr1.Cells.Add(tc_Nationalitaet) Dim cbverk As CheckBox = New CheckBox() - tc_Verk.Controls.Add(cbverk) - cbverk.Enabled = False - tr1.Cells.Add(tc_Verk) If l1.Verkauft = True Then cbverk.Checked = True Else cbverk.Checked = False End If + tc_Verk.Controls.Add(cbverk) + cbverk.Enabled = False + tr1.Cells.Add(tc_Verk) Dim chbx2_Kz_ab As CheckBox = New CheckBox() - chbx2_Kz_ab.Enabled = False If l1.Abgemeldet = True Then chbx2_Kz_ab.Checked = True Else chbx2_Kz_ab.Checked = False End If + chbx2_Kz_ab.Enabled = False tc_KZ_Ab.Controls.Add(chbx2_Kz_ab) tr1.Cells.Add(tc_KZ_Ab) If IsNothing(l1.Vermerk) = True Then