Init mit gewählter Alle-Kategorie

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