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