Liste wird gestringyfied mittels JSON und dann JS zugeführt. (ist noch nicht fertig!)

Customers/LKWs.aspx.vb

@@ -166,6 +166,13 @@ Partial Class LKWS
         'MsgBox("Test3")
     End Sub
 
+    Public Sub ConvertToJSON(lst As VERAG_PROG_ALLGEMEIN.cSDL_LKW)
+        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)