Init mit gewählter Alle-Kategorie

Customers/CustomsAviso.aspx

@@ -218,8 +218,7 @@
                                                                                      </div>
                                                                                 </div>--%>
 
-     <script src="//code.jquery.com/jquery-1.11.1.min.js"></script>
-    
+     <script src="//code.jquery.com/jquery-1.11.1.min.js"></script>    
     <script>
         $('#accordion').on('shown.bs.collapse', function (e) {
             $(e.target).data('bs.collapse').$trigger.attr('src', 'https://s22.postimg.org/hkrauaofx/Mathematic_Minus2.png');

Customers/CustomsAviso.aspx.vb

@@ -12,6 +12,9 @@ Partial Class Kundenbereich_Default
         If (Page.IsPostBack And normaltable.EnableViewState = False) Then
             normaltable.EnableViewState = True
         End If
+        rbt_Alle.Selected = True
+        rbt_Alle_M.Selected = True
+
     End Sub
 
     Protected Sub LogOutBtn1_Click(sender As Object, e As EventArgs)
@@ -145,7 +148,6 @@ Partial Class Kundenbereich_Default
         th8.Font.Bold = True
         th8.BackColor = darkblue
         th8.ForeColor = white
-
     End Sub
     Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
         'MsgBox(Session.Item("test").ToString)
@@ -191,7 +193,6 @@ Partial Class Kundenbereich_Default
         ElseIf rbt_Erf.Selected = True Or rbt_Erf_M.Selected Then
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0},,, Absender, Empfaenger, LKWNR, KDNAFNR)
         ElseIf rbt_Freig.Selected = True Or rbt_Freig_M.Selected = True Then
-
             If Date.Parse(pickdate2.Text) > Date.Parse(pickdate1.Text) Then
                 Try
                     pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
@@ -219,6 +220,7 @@ Partial Class Kundenbereich_Default
             Dim i As Integer = 0
 
             For Each d In dt.Rows
+                Dim tr = New TableRow
                 Dim Cell = New TableCell
                 Dim tbl_CellIndex = New TableCell
                 Dim tbl_CellStatus = New TableCell
@@ -228,7 +230,6 @@ Partial Class Kundenbereich_Default
                 Dim tbl_CellLKWs = New TableCell
                 Dim tbl_CellKundAuftNr = New TableCell
                 Dim tbl_CellInfo = New TableCell
-                Dim tr = New TableRow
 
                 Dim zahl = i + 1
                 tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled