edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixen des Table Problems: Lösung war :

Browse Source 
ALLE Rows und Cells innerhalb der ForEach-Schleife neu zzu erstellen sowie den ViewState-Mode der Tabelle auf False zu seten damit diese bei jedem Postback nicht neu geladen iwrd.
This commit is contained in:
ja
2021-09-14 09:17:51 +02:00
parent 2964495dc4
commit 27be5db198
2 changed files with 52 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Customers/CustomsAviso.aspx
View File

@@ -151,7 +151,7 @@
<!-- <input class="form-control mb-4" id="tableSearch" type="text" <!-- <input class="form-control mb-4" id="tableSearch" type="text"
placeholder="Einen Begriff eingeben oder den Anfang davon ...">--> placeholder="Einen Begriff eingeben oder den Anfang davon ...">-->
<div id="conovertab" style="overflow-x:auto;"margin-left="-2px"> <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:TableHeaderRow ID="tbl_Header_row" runat="server">
<asp:TableHeaderCell ID="tbl_HeaderCellIndexNr" runat="server">Index-Nr</asp:TableHeaderCell> <asp:TableHeaderCell ID="tbl_HeaderCellIndexNr" runat="server">Index-Nr</asp:TableHeaderCell>
<asp:TableHeaderCell ID="tbl_HeaderCell_ART" runat="server">ART</asp:TableHeaderCell> <asp:TableHeaderCell ID="tbl_HeaderCell_ART" runat="server">ART</asp:TableHeaderCell>

89
Customers/CustomsAviso.aspx.vb
View File

@@ -5,6 +5,18 @@ Imports System.Web.UI.HtmlControls
Partial Class Kundenbereich_Default Partial Class Kundenbereich_Default
Inherits System.Web.UI.Page 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) Protected Sub LogOutBtn1_Click(sender As Object, e As EventArgs)
@@ -30,17 +42,7 @@ Partial Class Kundenbereich_Default
'MsgBox(Session.Item("PW").ToString) 'MsgBox(Session.Item("PW").ToString)
Kdnrtext = Session.Item("CustomerID").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 dt = Nothing
@@ -81,7 +83,7 @@ Partial Class Kundenbereich_Default
End If End If
End If End If
If dt IsNot Nothing Then If dt IsNot Nothing Then
Dim i As Integer = 0 Dim i As Integer = 0
@@ -89,31 +91,42 @@ Partial Class Kundenbereich_Default
'Table start. 'Table start.
'sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>") 'sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
'Adding HeaderRow. 'Adding HeaderRow.
'sb.Append("<tr>") 'sb.Append("<tr>")
'For Each column As DataColumn In dt.Columns 'For Each column As DataColumn In dt.Columns
' sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _ ' sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
' + (column.ColumnName + "</th>"))) ' + (column.ColumnName + "</th>")))
'Next 'Next
'sb.Append("</tr>") 'sb.Append("</tr>")
'Adding DataRow. 'Adding DataRow.
'For Each row As DataRow In dt.Rows 'For Each row As DataRow In dt.Rows
'sb.Append("<tr>") 'sb.Append("<tr>")
'For Each column As DataColumn In dt.Columns 'For Each column As DataColumn In dt.Columns
' sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _ ' sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
' + (row(column.ColumnName).ToString + "</td>"))) ' + (row(column.ColumnName).ToString + "</td>")))
' Next ' Next
' sb.Append("</tr>") ' sb.Append("</tr>")
'Next 'Next
'Table end. 'Table end.
'sb.Append("</table>") 'sb.Append("</table>")
' ltTable.Text = sb.ToString ' ltTable.Text = sb.ToString
Dim Cell = New TableCell
'tr = New HtmlTableRow()
Dim tr = New TableRow
For Each d In dt.Rows 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 tbl_CellIndex.Text = i
tr.Cells.Add(tbl_CellIndex) tr.Cells.Add(tbl_CellIndex)
tbl_CellArt.Text = "" tbl_CellArt.Text = ""
@@ -155,9 +168,11 @@ Partial Class Kundenbereich_Default
i += 1 i += 1
Next Next
End If End If
End Sub End Sub
Protected Sub rbt_Freig_Click(sender As Object, e As EventArgs) Protected Sub rbt_Freig_Click(sender As Object, e As EventArgs)
MsgBox("Es funzt!") MsgBox("Es funzt!")
' datepicker1.Visible = True ' datepicker1.Visible = True
@@ -187,9 +202,7 @@ Partial Class Kundenbereich_Default
End Sub 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 End Class