Änderungen zum komplett dynamischen Erstellen der tabelle

Customers/CustomsAviso.aspx

@@ -1,4 +1,4 @@
-<%@ Page Title="Aufträge VERAG" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="CustomsAviso.aspx.vb" Inherits="CustomsAviso" UnobtrusiveValidationMode="None"%>
+<%@ Page Title="Aufträge VERAG" Language="VB" MasterPageFile="~/Customers/Customers.master" ViewStateMode="Enabled" AutoEventWireup="false" CodeFile="CustomsAviso.aspx.vb" Inherits="CustomsAviso" UnobtrusiveValidationMode="None"%>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">  
         <!-- Bootstrap -->
@@ -36,7 +36,7 @@
         </script>
 </asp:Content> 
 
-<asp:Content ID="Content3" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
+<asp:Content ID="Content3" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server" EnableViewState="true">
     <asp:ScriptManager ID="script1" runat="server"></asp:ScriptManager>
     <asp:UpdatePanel ID="panelupdate1" runat="server"><ContentTemplate>
         <!-- Webiste-Content-->  
@@ -202,7 +202,7 @@
                               <div id="Abstand_lang" style="height: /*32px*/ 2.498048399687744vh;"></div>                                     
                             <div class="g-3">                                            
                                              <div id="conovertab" style="overflow-x:auto;"margin-left="-2px"> 
-                                                   <asp:Table class="table table-responsive table-striped table-borderless" id="normaltable" runat="server" EnableViewState="false" BorderWidth="2px">
+                                                   <asp:Table class="table table-responsive table-striped table-borderless" id="normaltable" runat="server" ViewStateMode="Inherit" EnableViewState="true" BorderWidth="2px">
                                                         <asp:TableHeaderRow id="tbl_Header_row" runat="server" style="background-color:#043381;color:#fff">                                                        
                                                             <asp:TableHeaderCell ID="tbl_HeaderCellIndexNr" runat="server" AbbreviatedText="Index">Index-Nr</asp:TableHeaderCell>   
                                                             <asp:TableHeaderCell ID="tbl_HeaderCell_LKWs" runat="server" AbbreviatedText="LKWNr">LKW-Nr</asp:TableHeaderCell>

Customers/CustomsAviso.aspx.vb

@@ -42,9 +42,8 @@ Partial Class CustomsAviso
             tbl_Header_row.TableSection = TableRowSection.TableHeader
             ' MsgBox(datebis)
 
-            If (Page.IsPostBack And normaltable.EnableViewState = False) Then
+            If (Page.IsPostBack) Then
                 Page.MaintainScrollPositionOnPostBack = True
-                normaltable.EnableViewState = True
 
                 If rbt_Alle.Checked = True Then
                     lbl_von.Visible = True
@@ -209,10 +208,15 @@ Partial Class CustomsAviso
                     datevon = Nothing
                     datebis = Nothing
                 End If
+
+                If Not IsNothing(Session.Item("mytable")) Then
+                    addrows()
+                End If
             Else
                 Page.MaintainScrollPositionOnPostBack = False
                 rbt_Alle.Checked = True
                 normaltable.EnableViewState = True
+
                 lbl_von.Visible = True
                 lbl_bis.Visible = True
                 valDateRange_1.Enabled = True
@@ -272,6 +276,7 @@ Partial Class CustomsAviso
         Else
             FormsAuthentication.RedirectToLoginPage()
         End If
+
     End Sub
 
     Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell)
@@ -384,6 +389,8 @@ Partial Class CustomsAviso
     Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
         dt = Nothing
 
+        Session.Add("mytable", Nothing)
+        If Session.Item("mytable") = Nothing Then
             If txt_Absender.Text IsNot "" Then
                 txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regexval_txt_Absender.Enabled = True
@@ -631,7 +638,79 @@ Partial Class CustomsAviso
                 ckd = 12
                 dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
             End If
+        End If
+        addrows()
+        Session.Item("mytable") = normaltable
+    End Sub
 
+    Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
+        If String.IsNullOrEmpty(txt_Absender_M.Text) = False Or String.IsNullOrEmpty(txt_Empfaenger_M.Text) = False Or String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = False Or String.IsNullOrEmpty(txt_LKWNr_M.Text) = False Or rbt_Alle_M.Checked = True Or rbt_Ankunft_M.Checked = True Or rbt_Erf_M.Checked = True Or rbt_Freig_M.Checked = True Or rbt_Vorb_M.Checked = True Or rbt_Vorg_M.Checked = True Then
+            'Mobil
+            rbt_Alle_M.Checked = True
+            rbt_Alle_M.Disabled = False
+            rbt_Ankunft_M.Checked = False
+            rbt_Ankunft_M.Disabled = False
+            rbt_Erf_M.Checked = False
+            rbt_Erf_M.Disabled = False
+            rbt_Freig_M.Checked = False
+            rbt_Freig_M.Disabled = False
+            rbt_Vorg_M.Checked = False
+            rbt_Vorg_M.Disabled = False
+            rbt_Vorb_M.Checked = False
+            rbt_Vorb_M.Disabled = False
+            txt_Absender_M.Text = ""
+            txt_Empfaenger_M.Text = ""
+            txt_KdNrAuftrag_M.Text = ""
+            txt_LKWNr_M.Text = ""
+            Dim erster = New Date(Now().Year, Now().Month, 1)
+            pickdate1.Text = erster.Day.ToString + "." + erster.Month.ToString + "." + erster.Year.ToString
+            pickdate2.Text = Date.Parse(erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
+            datevon = Nothing
+            datebis = Nothing
+            dt = Nothing
+            Return
+        ElseIf String.IsNullOrEmpty(txt_Absender.Text) = False Or String.IsNullOrEmpty(txt_Empfaenger.Text) = False Or String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = False Or String.IsNullOrEmpty(txt_LKWNr.Text) = False Or rbt_Alle.Checked = True Or rbt_Ankunft.Checked = True Or rbt_Erf.Checked = True Or rbt_Freig.Checked = True Or rbt_Vorb.Checked = True Or rbt_Vorg.Checked = True Then
+            'Desktop
+            rbt_Alle.Checked = True
+            rbt_Alle.Disabled = False
+            rbt_Ankunft.Checked = False
+            rbt_Ankunft.Disabled = False
+            rbt_Erf.Checked = False
+            rbt_Erf.Disabled = False
+            rbt_Freig.Checked = False
+            rbt_Freig.Disabled = False
+            rbt_Vorg.Checked = False
+            rbt_Vorg.Disabled = False
+            rbt_Vorb.Checked = False
+            rbt_Vorb.Disabled = False
+            txt_Absender.Text = ""
+            txt_Empfaenger.Text = ""
+            txt_KdNrAuftrag.Text = ""
+            txt_LKWNr.Text = ""
+            Dim erster = New Date(Now().Year, Now().Month, 1)
+            pickdate1.Text = erster.Day.ToString + "." + erster.Month.ToString + "." + erster.Year.ToString
+            pickdate2.Text = Date.Parse(erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
+            datevon = Nothing
+            datebis = Nothing
+            dt = Nothing
+            Return
+        End If
+    End Sub
+
+    Protected Sub addrows()
+        Session.Item("mytable") = Nothing
+        normaltable.Rows.Clear()
+
+        Dim header As TableHeaderRow = New TableHeaderRow()
+        header.Cells.Add(tbl_HeaderCellIndexNr)
+        header.Cells.Add(tbl_HeaderCell_LKWs)
+        header.Cells.Add(tbl_HeaderCell_Status)
+        header.Cells.Add(tbl_HeaderCell_Auftragsdatum)
+        header.Cells.Add(tbl_HeaderCell_Absender)
+        header.Cells.Add(tbl_HeaderCell_Empfaenger)
+        header.Cells.Add(tbl_HeaderCell_KundAuftNr)
+        header.Cells.Add(tbl_HeaderCell_Info)
+        normaltable.Rows.Add(header)
         If dt IsNot Nothing AndAlso Not dt.Rows.Count = 0 Then
             Dim i As Integer = 0
             For Each d In dt.Rows
@@ -731,61 +810,6 @@ Partial Class CustomsAviso
             normaltable.Rows.Add(tr)
         End If
     End Sub
-
-    Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
-        If String.IsNullOrEmpty(txt_Absender_M.Text) = False Or String.IsNullOrEmpty(txt_Empfaenger_M.Text) = False Or String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = False Or String.IsNullOrEmpty(txt_LKWNr_M.Text) = False Or rbt_Alle_M.Checked = True Or rbt_Ankunft_M.Checked = True Or rbt_Erf_M.Checked = True Or rbt_Freig_M.Checked = True Or rbt_Vorb_M.Checked = True Or rbt_Vorg_M.Checked = True Then
-            'Mobil
-            rbt_Alle_M.Checked = True
-            rbt_Alle_M.Disabled = False
-            rbt_Ankunft_M.Checked = False
-            rbt_Ankunft_M.Disabled = False
-            rbt_Erf_M.Checked = False
-            rbt_Erf_M.Disabled = False
-            rbt_Freig_M.Checked = False
-            rbt_Freig_M.Disabled = False
-            rbt_Vorg_M.Checked = False
-            rbt_Vorg_M.Disabled = False
-            rbt_Vorb_M.Checked = False
-            rbt_Vorb_M.Disabled = False
-            txt_Absender_M.Text = ""
-            txt_Empfaenger_M.Text = ""
-            txt_KdNrAuftrag_M.Text = ""
-            txt_LKWNr_M.Text = ""
-            Dim erster = New Date(Now().Year, Now().Month, 1)
-            pickdate1.Text = erster.Day.ToString + "." + erster.Month.ToString + "." + erster.Year.ToString
-            pickdate2.Text = Date.Parse(erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
-            datevon = Nothing
-            datebis = Nothing
-            dt = Nothing
-            Return
-        ElseIf String.IsNullOrEmpty(txt_Absender.Text) = False Or String.IsNullOrEmpty(txt_Empfaenger.Text) = False Or String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = False Or String.IsNullOrEmpty(txt_LKWNr.Text) = False Or rbt_Alle.Checked = True Or rbt_Ankunft.Checked = True Or rbt_Erf.Checked = True Or rbt_Freig.Checked = True Or rbt_Vorb.Checked = True Or rbt_Vorg.Checked = True Then
-            'Desktop
-            rbt_Alle.Checked = True
-            rbt_Alle.Disabled = False
-            rbt_Ankunft.Checked = False
-            rbt_Ankunft.Disabled = False
-            rbt_Erf.Checked = False
-            rbt_Erf.Disabled = False
-            rbt_Freig.Checked = False
-            rbt_Freig.Disabled = False
-            rbt_Vorg.Checked = False
-            rbt_Vorg.Disabled = False
-            rbt_Vorb.Checked = False
-            rbt_Vorb.Disabled = False
-            txt_Absender.Text = ""
-            txt_Empfaenger.Text = ""
-            txt_KdNrAuftrag.Text = ""
-            txt_LKWNr.Text = ""
-            Dim erster = New Date(Now().Year, Now().Month, 1)
-            pickdate1.Text = erster.Day.ToString + "." + erster.Month.ToString + "." + erster.Year.ToString
-            pickdate2.Text = Date.Parse(erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
-            datevon = Nothing
-            datebis = Nothing
-            dt = Nothing
-            Return
-        End If
-    End Sub
-
     Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs)
         valDateRange_1.Validate()
     End Sub

Customers/Invoices.aspx.vb

@@ -458,9 +458,10 @@ Partial Class Customers_Default3
                         tr.Cells.Add(tbl_Cell_Info)
                         initcells(tr, tbl_Cell_Index, tbl_Cell_ReNr, tbl_Cell_LKWs, tbl_Cell_Auftragsdat, tbl_Cell_KundAuftrNr, tbl_Cell_Absender, tbl_Cell_Empfaenger, tbl_Cell_Info,
                         tbl_HeaderCellIndex, tbl_HeaderCell_ReNr, tbl_HeaderCell_LKWNr, tbl_HeaderCell_Auftragsdatum, tbl_HeaderCell_KundenAuftrNummer, tbl_HeaderCell_Absender, tbl_HeaderCell_Empfaenger, tbl_HeaderCell_Info)
+                        normaltable.ViewStateMode = ViewStateMode.Enabled
+                        Page.ViewStateMode = ViewStateMode.Enabled
                         normaltable.Rows.Add(tr)
                         Session.Add("lastrecord", dt)
-                        normaltable.v
                         i += 1
                     Next
                 Else