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