From 27be5db1984b9b50072f4b581a3ff3843786ee60 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Tue, 14 Sep 2021 09:17:51 +0200
Subject: [PATCH] =?UTF-8?q?Fixen=20des=20Table=20Problems:=20L=C3=B6sung?=
 =?UTF-8?q?=20war=20:=20ALLE=20Rows=20und=20Cells=20innerhalb=20der=20ForE?=
 =?UTF-8?q?ach-Schleife=20neu=20zzu=20erstellen=20sowie=20den=20ViewState-?=
 =?UTF-8?q?Mode=20der=20Tabelle=20auf=20False=20zu=20seten=20damit=20diese?=
 =?UTF-8?q?=20bei=20jedem=20Postback=20nicht=20neu=20geladen=20iwrd.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/CustomsAviso.aspx    |  2 +-
 Customers/CustomsAviso.aspx.vb | 89 +++++++++++++++++++---------------
 2 files changed, 52 insertions(+), 39 deletions(-)

diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx
index 541d8c4..18aa148 100644
--- a/Customers/CustomsAviso.aspx
+++ b/Customers/CustomsAviso.aspx
@@ -151,7 +151,7 @@
                                              <!-- <input class="form-control mb-4" id="tableSearch" type="text"
                                                 placeholder="Einen Begriff eingeben oder den Anfang davon ...">-->
                                              <div id="conovertab" style="overflow-x:auto;"margin-left="-2px"> 
-                                                   <asp:Table id="normaltable" runat="server" Width="100%">
+                                                   <asp:Table id="normaltable" runat="server" Width="100%" EnableViewState="false" >
                                                     <asp:TableHeaderRow ID="tbl_Header_row" runat="server">                                                        
                                                             <asp:TableHeaderCell ID="tbl_HeaderCellIndexNr" runat="server">Index-Nr</asp:TableHeaderCell>
                                                             <asp:TableHeaderCell ID="tbl_HeaderCell_ART" runat="server">ART</asp:TableHeaderCell>
diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index b469b7d..ca6327f 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -5,6 +5,18 @@ Imports System.Web.UI.HtmlControls
 Partial Class Kundenbereich_Default
     Inherits System.Web.UI.Page
 
+    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        tbl_Header_row.TableSection = TableRowSection.TableHeader
+
+        DataBind()
+
+        If (Page.IsPostBack And normaltable.EnableViewState = False) Then
+
+            normaltable.EnableViewState = True
+        End If
+    End Sub
+
+
 
     Protected Sub LogOutBtn1_Click(sender As Object, e As EventArgs)
 
@@ -30,17 +42,7 @@ Partial Class Kundenbereich_Default
         'MsgBox(Session.Item("PW").ToString)
         Kdnrtext = Session.Item("CustomerID").ToString
 
-        Dim tbl_CellIndex = New TableCell
-        Dim tbl_CellArt = New TableCell
-        Dim tbl_CellKundenNr = New TableCell
-        Dim tbl_CellStatus = New TableCell
-        Dim tbl_Cellvon = New TableCell
-        Dim tbl_Cellbis = New TableCell
-        Dim tbl_CellAbsender = New TableCell
-        Dim tbl_CellEmpfaenger = New TableCell
-        Dim tbl_CellLKWs = New TableCell
-        Dim tbl_CellKundAuftNr = New TableCell
-        Dim tbl_CellInfo = New TableCell
+
 
         dt = Nothing
 
@@ -81,7 +83,7 @@ Partial Class Kundenbereich_Default
             End If
         End If
 
-            If dt IsNot Nothing Then
+        If dt IsNot Nothing Then
             Dim i As Integer = 0
 
 
@@ -89,31 +91,42 @@ Partial Class Kundenbereich_Default
 
             'Table start.
             'sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
-                'Adding HeaderRow.
-                'sb.Append("<tr>")
-                'For Each column As DataColumn In dt.Columns
-                '  sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
-                '               + (column.ColumnName + "</th>")))
-                'Next
-                'sb.Append("</tr>")
-                'Adding DataRow.
-                'For Each row As DataRow In dt.Rows
-                'sb.Append("<tr>")
-                'For Each column As DataColumn In dt.Columns
-                '    sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
-                '                 + (row(column.ColumnName).ToString + "</td>")))
-                '  Next
-                '   sb.Append("</tr>")
-                'Next
-                'Table end.
-                'sb.Append("</table>")
-                ' ltTable.Text = sb.ToString
+            'Adding HeaderRow.
+            'sb.Append("<tr>")
+            'For Each column As DataColumn In dt.Columns
+            '  sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
+            '               + (column.ColumnName + "</th>")))
+            'Next
+            'sb.Append("</tr>")
+            'Adding DataRow.
+            'For Each row As DataRow In dt.Rows
+            'sb.Append("<tr>")
+            'For Each column As DataColumn In dt.Columns
+            '    sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
+            '                 + (row(column.ColumnName).ToString + "</td>")))
+            '  Next
+            '   sb.Append("</tr>")
+            'Next
+            'Table end.
+            'sb.Append("</table>")
+            ' ltTable.Text = sb.ToString
+
 
-                Dim Cell = New TableCell
-            'tr = New HtmlTableRow()
-            Dim tr = New TableRow
             For Each d In dt.Rows
-
+                Dim Cell = New TableCell
+                Dim tbl_CellIndex = New TableCell
+                Dim tbl_CellArt = New TableCell
+                Dim tbl_CellKundenNr = New TableCell
+                Dim tbl_CellStatus = New TableCell
+                Dim tbl_Cellvon = New TableCell
+                Dim tbl_Cellbis = New TableCell
+                Dim tbl_CellAbsender = New TableCell
+                Dim tbl_CellEmpfaenger = New TableCell
+                Dim tbl_CellLKWs = New TableCell
+                Dim tbl_CellKundAuftNr = New TableCell
+                Dim tbl_CellInfo = New TableCell
+                'tr = New HtmlTableRow()
+                Dim tr = New TableRow
                 tbl_CellIndex.Text = i
                 tr.Cells.Add(tbl_CellIndex)
                 tbl_CellArt.Text = ""
@@ -155,9 +168,11 @@ Partial Class Kundenbereich_Default
 
                 i += 1
             Next
+
         End If
 
     End Sub
+
     Protected Sub rbt_Freig_Click(sender As Object, e As EventArgs)
         MsgBox("Es funzt!")
         ' datepicker1.Visible = True
@@ -187,9 +202,7 @@ Partial Class Kundenbereich_Default
 
     End Sub
 
-    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
-        tbl_Header_row.TableSection = TableRowSection.TableHeader
-    End Sub
+
 End Class