This commit is contained in:
ja
2021-12-13 09:29:10 +01:00

View File

@@ -167,23 +167,23 @@ Partial Class LKWS
'MsgBox("Test1")
For Each l2 In list
Dim tr2 As TableRow = New TableRow()
Dim tc_KfzKennz As TableCell = New TableCell()
Dim tc_Nationalitaet As TableCell = New TableCell()
Dim tc_Verk As TableCell = New TableCell()
Dim tc_KZ_An As TableCell = New TableCell()
Dim tc_Vermerk As TableCell = New TableCell()
tc_KfzKennz.Text = l2.KfzKennzeichen.ToString
tr2.Cells.Add(tc_KfzKennz)
tc_Nationalitaet.Text = String.Empty
tr2.Cells.Add(tc_Nationalitaet)
Dim tc_KfzKennz_M As TableCell = New TableCell()
Dim tc_Nationalitaet_M As TableCell = New TableCell()
Dim tc_Verk_M As TableCell = New TableCell()
Dim tc_KZ_An_M As TableCell = New TableCell()
Dim tc_Vermerk_M As TableCell = New TableCell()
tc_KfzKennz_M.Text = l2.KfzKennzeichen.ToString
tr2.Cells.Add(tc_KfzKennz_M)
tc_Nationalitaet_M.Text = String.Empty
tr2.Cells.Add(tc_Nationalitaet_M)
Dim cbVerk_Such As CheckBox = New CheckBox()
tc_Verk.Controls.Add(cbVerk_Such)
tr2.Cells.Add(tc_Verk)
tc_Verk_M.Controls.Add(cbVerk_Such)
tr2.Cells.Add(tc_Verk_M)
Dim cb_Kz_An As CheckBox = New CheckBox()
tc_KZ_An.Controls.Add(cb_Kz_An)
tc_Vermerk.Text = l2.Vermerk.ToString
tr2.Cells.Add(tc_Vermerk)
initcells(tblhrow, tblheader_Cell1, tblheader_Cellnat, tblheader_Cellverk, tblheader_cell_KZ, tblheader_cell_Verm, tr2, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)
tc_KZ_An_M.Controls.Add(cb_Kz_An)
tc_Vermerk_M.Text = l2.Vermerk.ToString
tr2.Cells.Add(tc_Vermerk_M)
initcells(tblhrow, tblheader_Cell1, tblheader_Cellnat, tblheader_Cellverk, tblheader_cell_KZ, tblheader_cell_Verm, tr2, tc_KfzKennz_M, tc_Nationalitaet_M, tc_Verk_M, tc_KZ_An_M, tc_Vermerk_M, cnt)
tbl_sidemenue2.Rows.Add(tr2)
cnt += 1