From 7e52a02586dde35dd38fad2f3de13371d4d59a77 Mon Sep 17 00:00:00 2001 From: ja Date: Tue, 21 Dec 2021 08:53:14 +0100 Subject: [PATCH] =?UTF-8?q?Tabelle=20soll=20mittels=20Web-Methos=20aufgef?= =?UTF-8?q?=C3=BCllt=20werdne.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/LKWs.aspx | 36 ++++++++++++++++++++++++------------ Customers/LKWs.aspx.vb | 20 ++++++++++++++++++-- 2 files changed, 42 insertions(+), 14 deletions(-) diff --git a/Customers/LKWs.aspx b/Customers/LKWs.aspx index 82466a2..907367a 100644 --- a/Customers/LKWs.aspx +++ b/Customers/LKWs.aspx @@ -139,11 +139,14 @@ - + + diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb index 7df50d4..a9d1250 100644 --- a/Customers/LKWs.aspx.vb +++ b/Customers/LKWs.aspx.vb @@ -154,7 +154,7 @@ Partial Class LKWS tr.Cells.Add(tc_Karten_Nr) 'tbl_mainpage.Rows.Add(tr) TableRows.Add(tr) - strstrstrstrtemp = tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text + strstrstrstrtemp += String.Join("-", tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text) End If list3.Add(strstrstrstrtemp) @@ -418,5 +418,21 @@ Partial Class LKWS Next End Sub - + + Public Sub filltable2(SDLNr As String, Bezeichnung As String, GueltigBis As String, KartNr As String) + Dim tc_SDLNr As TableCell = New TableCell + Dim tc_Bezeichnung As TableCell = New TableCell + Dim tc_GueltigBis As TableCell = New TableCell + Dim tc_KartNr As TableCell = New TableCell + Dim tr As TableRow = New TableRow + tc_SDLNr.Text = SDLNr + tc_Bezeichnung.Text = Bezeichnung + tc_GueltigBis.Text = GueltigBis + tc_KartNr.Text = KartNr + tr.Cells.Add(tc_SDLNr) + tr.Cells.Add(tc_Bezeichnung) + tr.Cells.Add(tc_GueltigBis) + tr.Cells.Add(tc_KartNr) + tbl_2.Rows.Add(tr) + End Sub End Class