tabellenproblem gelöst dass zu viele Zeile hinzugefügt und keine gelöscht werden.

Customers/LKWs.aspx.vb

@@ -109,16 +109,17 @@ Partial Class LKWS
                 For Each l3 In list3
                     list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
                 Next
+                Dim strtemp2 As String = String.Empty
+                If String.IsNullOrEmpty(l1.Nationalität) = True Then
+                    strtemp2 = "Keine Angabe"
+                Else
+                    strtemp2 = l1.Nationalität
+                End If
+                tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToString & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
             Next
-            Dim strtemp2 As String = String.Empty
 
-            If String.IsNullOrEmpty(l1.Nationalität) Then
-                strtemp2 = "Keine Angabe"
-            Else
-                strtemp2 = l1.Nationalität
-            End If
 
-            tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToString & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
+
             cnt += 1
             tbl_sidemenue.Rows.Add(tr1)
         Next
@@ -138,16 +139,12 @@ Partial Class LKWS
         th3.ForeColor = Drawing.Color.White
         th4.ForeColor = Drawing.Color.White
         th5.ForeColor = Drawing.Color.White
-
-
     End Sub
 
     Protected Sub btn_Suchen_Click(sender As Object, e As EventArgs)
-        'MsgBox("Test0")
         Dim txt_LkwNr As TextBox = txt_lkw
         'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, "COOPER8")
         list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
-
         Dim tblhrow As TableHeaderRow = New TableHeaderRow()
         Dim cnt As Integer = 0
 
@@ -157,10 +154,10 @@ Partial Class LKWS
         tblhrow.Cells.Add(tblhc_Kz)
         tblhrow.Cells.Add(tblhc_Verm)
 
-        tbl_sidemenue.Rows.Clear()
         tbl_sidemenue.Height = Unit.Pixel(150)
+        tbl_sidemenue.Rows.Clear()
         tbl_sidemenue.Rows.Add(tblhrow)
-        'MsgBox("Test1")
+
         For Each l2 In list
             Dim tr2 As TableRow = New TableRow()
             Dim tc_KfzKennz As TableCell = New TableCell()
@@ -201,7 +198,6 @@ Partial Class LKWS
             tbl_sidemenue.Rows.Add(tr2)
             cnt += 1
         Next
-        'MsgBox("Test2")
     End Sub
 
     Protected Sub TableRowClick(ByVal sender As TableRow, e As EventArgs)
@@ -213,7 +209,7 @@ Partial Class LKWS
         Else
             VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
         End If
-
+        tbl_2.Rows.Clear()
         list_M = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
         Dim cnt As Integer = 0
 
@@ -273,7 +269,7 @@ Partial Class LKWS
         Else
             VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
         End If
-
+        tbl_2.Rows.Clear()
         Dim cnt As Integer = 0
         list_M = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
         Dim tblhrow_M As TableHeaderRow = New TableHeaderRow
@@ -285,8 +281,6 @@ Partial Class LKWS
         tblhrow_M.Cells.Add(tbhc_Verm_M)
         tbl_2.Rows.Add(tblhrow_M)
 
-        'tbl_sidemenue.Rows.Clear()
-        'MsgBox("Test2")
         For Each l3 In list_M
             Dim tr1_M As TableRow = New TableRow()
             Dim tc_KfzKennz_M As TableCell = New TableCell()
@@ -355,6 +349,5 @@ Partial Class LKWS
             tbl_2.Rows.Add(tr1_M)
             cnt += 1
         Next
-        'MsgBox("Test3")
     End Sub
 End Class