erste Tests

Customers/LKWs.aspx.vb

@@ -2,6 +2,7 @@
 Imports System
 Imports System.Web.Script.Serialization
 Imports System.Web.Security
+Imports System.Web.Services
 Imports System.Web.UI.WebControls
 
 Partial Class LKWS
@@ -125,6 +126,7 @@ Partial Class LKWS
             Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l1.KfzKennzeichen)
             Dim stringtemtr As String = String.Empty
             Dim tr As TableRow = New TableRow
+            Dim list3 As List(Of String) = New List(Of String)
             For Each l2 In list2
                 Dim String2 As String = String.Empty
 
@@ -147,7 +149,8 @@ Partial Class LKWS
                     tr.Cells.Add(tc_Bez)
                     tr.Cells.Add(tc_gueltigbis)
                     tr.Cells.Add(tc_Karten_Nr)
-                    strtemparr = "<tr><td>" + tc_SDL.Text + "</td><td>" + tc_Bez.Text + "</td><td>" + tc_gueltigbis.Text + "</td><td>" + tc_Karten_Nr.Text + "</td></tr>"
+
+                    list3.Add(tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text)
                     'tbl_mainpage.Rows.Add(tr)
                     TableRows.Add(tr)
                 End If
@@ -158,7 +161,7 @@ Partial Class LKWS
             Else
                 strtemp2 = l1.Nationalität
             End If
-
+            ConvertToJSON(list3)
             tr1.Attributes.Add("onclick", "Javascript:TableRow_Click(""" & strtemp2 & """,""" & l1.KfzKennzeichen & """)")
             cnt += 1
             tbl_sidemenue.Rows.Add(tr1)
@@ -166,13 +169,14 @@ Partial Class LKWS
         'MsgBox("Test3")
     End Sub
 
-    Public Sub ConvertToJSON(lst As VERAG_PROG_ALLGEMEIN.cSDL_LKW)
+    Public Sub ConvertToJSON(lst As List(Of String))
         Dim jss1 As New JavaScriptSerializer()
         Dim _myJSONstring As String = jss1.Serialize(lst)
         Dim player As String = (Convert.ToString("var player=") & _myJSONstring) + ";"
         Page.ClientScript.RegisterClientScriptBlock(Me.[GetType](), "player123", player, True)
     End Sub
 
+
     Private Sub initcells(thr1 As TableHeaderRow, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, tr1 As TableRow, tc_KfzKennz As TableCell, tc_Nationalitaet As TableCell, tc_Verk As TableCell, tc_KZ_An As TableCell, tc_Vermerk As TableCell, countrows As Integer)
         'Dim res As Integer
         thr1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
@@ -408,4 +412,5 @@ Partial Class LKWS
         Next
     End Sub
 
+
 End Class