From c525c9304ccaf74da0c9ce136c83f57e09c2bc16 Mon Sep 17 00:00:00 2001 From: ja Date: Mon, 13 Dec 2021 09:28:16 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderung=20Mobiltabelle?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/LKWs.aspx.vb | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb index 19e8396..9623277 100644 --- a/Customers/LKWs.aspx.vb +++ b/Customers/LKWs.aspx.vb @@ -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