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 @@
- + Index-Nr ART 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("") - 'Adding HeaderRow. - 'sb.Append("") - 'For Each column As DataColumn In dt.Columns - ' sb.Append((""))) - 'Next - 'sb.Append("") - 'Adding DataRow. - 'For Each row As DataRow In dt.Rows - 'sb.Append("") - 'For Each column As DataColumn In dt.Columns - ' sb.Append((""))) - ' Next - ' sb.Append("") - 'Next - 'Table end. - 'sb.Append("
" _ - ' + (column.ColumnName + "
" _ - ' + (row(column.ColumnName).ToString + "
") - ' ltTable.Text = sb.ToString + 'Adding HeaderRow. + 'sb.Append("") + 'For Each column As DataColumn In dt.Columns + ' sb.Append(("" _ + ' + (column.ColumnName + ""))) + 'Next + 'sb.Append("") + 'Adding DataRow. + 'For Each row As DataRow In dt.Rows + 'sb.Append("") + 'For Each column As DataColumn In dt.Columns + ' sb.Append(("" _ + ' + (row(column.ColumnName).ToString + ""))) + ' Next + ' sb.Append("") + 'Next + 'Table end. + 'sb.Append("") + ' 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