Änderung der Bezugsliste Daten werden nun befült Anzeige scheitert noch

Customers/LKWs.aspx.vb

@@ -116,10 +116,11 @@ Partial Class LKWS
                     strtemp2 = l1.Nationalität
                 End If
                 Dim strarrtemp = String.Empty
-                For Each l4 In list3
-                    strarrtemp = String.Join("-", l4)
-                Next
-                tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToString & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
+
+                strarrtemp = String.Join(" ", list3)
+
+                tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & strarrtemp & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
+
             Next
             cnt += 1
             tbl_sidemenue.Rows.Add(tr1)
@@ -127,6 +128,8 @@ Partial Class LKWS
         'MsgBox("Test3")
     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)
@@ -336,7 +339,7 @@ Partial Class LKWS
                 Else
                     Stringtemp_M = String.Empty
                 End If
-                For Each l4 In list3
+                For Each l4 In list2
                     list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
                 Next
             Next
@@ -347,12 +350,19 @@ Partial Class LKWS
                 strtemp2 = l3.Nationalität
             End If
             Dim str2temptemp = String.Empty
-            For Each Ltenp In list3
-                str2temptemp = String.Join("-", Ltenp)
-            Next
+
+            str2temptemp = String.Join(" ", list3)
+
+            'MsgBox(str2temptemp)
             tr1_M.Attributes.Add("OnClick", "Javascript:TableRowClick_M(""" & str2temptemp & """,""" & l3.KfzKennzeichen & """,""" & strtemp2 & """)")
             tbl_2.Rows.Add(tr1_M)
             cnt += 1
         Next
     End Sub
 End Class
+
+
+
+
+
+