From 82bbd0295cf1f8d24b8108f9cfd8a87f000d5fc0 Mon Sep 17 00:00:00 2001 From: ja Date: Fri, 10 Sep 2021 11:30:10 +0200 Subject: [PATCH] =?UTF-8?q?Tabelle=20wird=20mit=201=20Zeile=20bef=C3=BCllt?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/CustomsAviso.aspx | 20 +- Customers/CustomsAviso.aspx.vb | 412 ++++++++++++++++++++------------- 2 files changed, 267 insertions(+), 165 deletions(-) diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx index 2ee814d..eb1fbce 100644 --- a/Customers/CustomsAviso.aspx +++ b/Customers/CustomsAviso.aspx @@ -94,18 +94,32 @@
- + + + Index-Nr + ART + KundenNr + Status + von + bis + Absender + Empfänger + LKW_Nr + KundenAuftrags_Nr + Info + + - + diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index bd13cd8..4fa6f26 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -25,40 +25,34 @@ Partial Class Kundenbereich_Default Dim Kdnrtext = txt_KdNr.Text Dim datevon As Date Dim datebis As Date + + 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 novalexception As Exception + Dim dt Try datevon = pickdate1.SelectedDate datebis = pickdate2.SelectedDate - Catch + Catch ex As Exception When datevon < Date.Parse("01.01.2001") Or datebis > Date.Now datevon = DateValue(Date.Now.ToString("01.MM.yyyy")) datebis = DateValue(Date.Now) End Try - Dim tr - Dim th - th = New HtmlTableRow() + 'Dim tr - th.Cells.Add(New HtmlTableCell("Index")) - th.Cells.Add(New HtmlTableCell("Art")) - th.Cells.Add(New HtmlTableCell("Status")) - th.Cells.Add(New HtmlTableCell("Von")) - th.Cells.Add(New HtmlTableCell("Bis")) - th.Cells.Add(New HtmlTableCell("Absender")) - th.Cells.Add(New HtmlTableCell("Empfaenger")) - th.Cells.Add(New HtmlTableCell("LKW_Nr")) - th.Cells.Add(New HtmlTableCell("Auftraggeber_KdNr")) - normaltable.Rows.Add(th) If rbt_Erf.Checked = True Then - rbt_Freig.Checked = False - rbt_Freig.Enabled = False - rbt_Ankunft.Checked = False - rbt_Ankunft.Enabled = False - rbt_Vorb.Checked = False - rbt_Vorb.Enabled = False - rbt_Vorg.Checked = False - rbt_Vorg.Enabled = False + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0}) @@ -89,220 +83,292 @@ Partial Class Kundenbereich_Default 'sb.Append("
") ' ltTable.Text = sb.ToString + Dim Cell = New TableCell + For Each d In dt.Rows If i <= dt.Rows.Count Then - tr = New HtmlTableRow() + 'tr = New HtmlTableRow() + Dim tr = New TableRow + + tbl_CellIndex.Text = i + tr.Controls.Add(tbl_CellIndex) + tbl_CellArt.Text = "" + tr.Controls.Add(tbl_CellArt) + tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString + tr.Controls.Add(tbl_CellKundenNr) - tr.Cells.Add(New HtmlTableCell(i)) - tr.Cells.Add(New HtmlTableCell("")) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) Select Case d("Status") Case 1 - tr.Cells.Add(New HtmlTableCell("Erfasst")) + tbl_CellStatus.Text = "Erfasst" + tr.Controls.Add(tbl_CellStatus) 'Case 2 - ' tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen")) + ' tbl_CellStatus = "Nicht eingetroffen" + ' tr.Controls.Add(Cell) Case 3 - tr.Cells.Add(New HtmlTableCell("Ankunft")) + tbl_CellStatus.Text = "Ankunft" + tr.Controls.Add(tbl_CellStatus) Case 4 - tr.Cells.Add(New HtmlTableCell("Vorbereitet")) + tbl_CellStatus.Text = "Vorbereitet" + tr.Controls.Add(tbl_CellStatus) Case 5 - tr.Cells.Add(New HtmlTableCell("Vorgeschrieben")) + tbl_CellStatus.Text = "Vorgeschrieben" + tr.Controls.Add(tbl_CellStatus) Case Else - tr.Cells.Add(New HtmlTableCell("Undefiend")) + tbl_CellStatus.Text = "Undefiend" + tr.Controls.Add(tbl_CellStatus) End Select - tr.Cells.Add(New HtmlTableCell(d("AvisoEingang"))) - tr.Cells.Add(New HtmlTableCell(d("AvisoEingang"))) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber"))) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber"))) - tr.Cells.Add(New HtmlTableCell(d("LKW_Nr"))) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) - normaltable.Rows.Add(tr) + tbl_Cellvon.Text = d("AvisoEingang").ToString + tr.Controls.Add(tbl_Cellvon) + tbl_Cellbis.Text = d("AvisoEingang").ToString + tr.Controls.Add(tbl_Cellbis) + tbl_CellAbsender.Text = d("Auftraggeber").ToString + tr.Controls.Add(tbl_CellAbsender) + tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString + tr.Controls.Add(tbl_CellEmpfaenger) + tbl_CellLKWs.Text = d("LKW_Nr").ToString + tr.Controls.Add(tbl_CellLKWs) + tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString + tr.Controls.Add(tbl_CellKundAuftNr) + normaltable.Rows.Add(tr) i = i + 1 End If Next ElseIf rbt_Freig.Checked = True Then - rbt_Erf.Checked = False - rbt_Erf.Enabled = False - rbt_Ankunft.Checked = False - rbt_Ankunft.Enabled = False - rbt_Vorb.Checked = False - rbt_Vorb.Enabled = False - rbt_Vorg.Checked = False - rbt_Vorg.Enabled = False + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, datevon, datebis) + Dim i As Integer = 0 + Dim Cell = New TableCell For Each d In dt.Rows If i <= dt.Rows.Count Then - 'Dim tr = New TableRow - tr = New HtmlTableRow() - 'Cell.Controls.Add(New HtmlTableCell(i)) - tr.Cells.Add(New HtmlTableCell(i)) - tr.Cells.Add(New HtmlTableCell("")) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) + + 'tr = New HtmlTableRow() + Dim tr = New TableRow + + tbl_CellIndex.Text = i + tr.Controls.Add(tbl_CellIndex) + tbl_CellArt.Text = "" + tr.Controls.Add(tbl_CellArt) + tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString + tr.Controls.Add(tbl_CellKundenNr) + Select Case d("Status") Case 1 - tr.Cells.Add(New HtmlTableCell("Erfasst")) + tbl_CellStatus.Text = "Erfasst" + tr.Controls.Add(tbl_CellStatus) 'Case 2 - ' tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen")) + ' tbl_CellStatus = "Nicht eingetroffen" + ' tr.Controls.Add(Cell) Case 3 - tr.Cells.Add(New HtmlTableCell("Ankunft")) + tbl_CellStatus.Text = "Ankunft" + tr.Controls.Add(tbl_CellStatus) Case 4 - tr.Cells.Add(New HtmlTableCell("Vorbereitet")) + tbl_CellStatus.Text = "Vorbereitet" + tr.Controls.Add(tbl_CellStatus) Case 5 - tr.Cells.Add(New HtmlTableCell("Vorgeschrieben")) + tbl_CellStatus.Text = "Vorgeschrieben" + tr.Controls.Add(tbl_CellStatus) Case Else - tr.Cells.Add(New HtmlTableCell("Undefiend")) + tbl_CellStatus.Text = "Undefiend" + tr.Controls.Add(tbl_CellStatus) End Select - tr.Cells.Add(New HtmlTableCell(d("AvisoEingang"))) - tr.Cells.Add(New HtmlTableCell(d("AvisoEingang"))) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber"))) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber"))) - tr.Cells.Add(New HtmlTableCell(d("LKW_Nr"))) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) - normaltable.Rows.Add(tr) + tbl_Cellvon.Text = d("AvisoEingang").ToString + tr.Controls.Add(tbl_Cellvon) + tbl_Cellbis.Text = d("AvisoEingang").ToString + tr.Controls.Add(tbl_Cellbis) + tbl_CellAbsender.Text = d("Auftraggeber").ToString + tr.Controls.Add(tbl_CellAbsender) + tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString + tr.Controls.Add(tbl_CellEmpfaenger) + tbl_CellLKWs.Text = d("LKW_Nr").ToString + tr.Controls.Add(tbl_CellLKWs) + tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString + tr.Controls.Add(tbl_CellKundAuftNr) + normaltable.Rows.Add(tr) i = i + 1 End If Next ElseIf rbt_Ankunft.Checked = True Then - rbt_Erf.Checked = False - rbt_Erf.Enabled = False - rbt_Freig.Checked = False - rbt_Freig.Enabled = False - rbt_Vorb.Checked = False - rbt_Vorb.Enabled = False - rbt_Vorg.Checked = False - rbt_Vorg.Enabled = False + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3}) Dim i As Integer = 0 + Dim Cell = New TableCell For Each d In dt.Rows If i <= dt.Rows.Count Then - tr = New HtmlTableRow() - tr.Cells.Add(New HtmlTableCell(i)) - tr.Cells.Add(New HtmlTableCell("")) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) + 'tr = New HtmlTableRow() + Dim tr = New TableRow + + tbl_CellIndex.Text = i + tr.Controls.Add(tbl_CellIndex) + tbl_CellArt.Text = "" + tr.Controls.Add(tbl_CellArt) + tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString + tr.Controls.Add(tbl_CellKundenNr) + Select Case d("Status") Case 1 - tr.Cells.Add(New HtmlTableCell("Erfasst")) + tbl_CellStatus.Text = "Erfasst" + tr.Controls.Add(tbl_CellStatus) 'Case 2 - ' tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen")) + ' tbl_CellStatus = "Nicht eingetroffen" + ' tr.Controls.Add(Cell) Case 3 - tr.Cells.Add(New HtmlTableCell("Ankunft")) + tbl_CellStatus.Text = "Ankunft" + tr.Controls.Add(tbl_CellStatus) Case 4 - tr.Cells.Add(New HtmlTableCell("Vorbereitet")) + tbl_CellStatus.Text = "Vorbereitet" + tr.Controls.Add(tbl_CellStatus) Case 5 - tr.Cells.Add(New HtmlTableCell("Vorgeschrieben")) + tbl_CellStatus.Text = "Vorgeschrieben" + tr.Controls.Add(tbl_CellStatus) Case Else - tr.Cells.Add(New HtmlTableCell("Undefiend")) + tbl_CellStatus.Text = "Undefiend" + tr.Controls.Add(tbl_CellStatus) End Select - tr.Cells.Add(New HtmlTableCell("")) - tr.Cells.Add(New HtmlTableCell("")) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber"))) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber"))) - tr.Cells.Add(New HtmlTableCell(d("LKW_Nr"))) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) - normaltable.Rows.Add(tr) + tbl_Cellvon.Text = d("AvisoEingang").ToString + tr.Controls.Add(tbl_Cellvon) + tbl_Cellbis.Text = d("AvisoEingang").ToString + tr.Controls.Add(tbl_Cellbis) + tbl_CellAbsender.Text = d("Auftraggeber").ToString + tr.Controls.Add(tbl_CellAbsender) + tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString + tr.Controls.Add(tbl_CellEmpfaenger) + tbl_CellLKWs.Text = d("LKW_Nr").ToString + tr.Controls.Add(tbl_CellLKWs) + tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString + tr.Controls.Add(tbl_CellKundAuftNr) + normaltable.Rows.Add(tr) i = i + 1 End If Next ElseIf rbt_Vorb.Checked = True Then - rbt_Ankunft.Checked = False - rbt_Ankunft.Enabled = False - rbt_Erf.Checked = False - rbt_Erf.Enabled = False - rbt_Freig.Checked = False - rbt_Freig.Enabled = False - rbt_Vorg.Checked = False - rbt_Vorg.Enabled = False dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4}) - Dim i As Integer = 0 + Dim i As Integer = 0 + Dim Cell = New TableCell + 'tr = New HtmlTableRow() + Dim tr = New TableRow For Each d In dt.Rows If i <= dt.Rows.Count Then - tr = New HtmlTableRow() - tr.Cells.Add(New HtmlTableCell(i)) - tr.Cells.Add(New HtmlTableCell("")) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) + + + + tbl_CellIndex.Text = i + tr.Controls.Add(tbl_CellIndex) + tbl_CellArt.Text = "" + tr.Controls.Add(tbl_CellArt) + tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString + tr.Controls.Add(tbl_CellKundenNr) + Select Case d("Status") Case 1 - tr.Cells.Add(New HtmlTableCell("Erfasst")) + tbl_CellStatus.Text = "Erfasst" + tr.Controls.Add(tbl_CellStatus) 'Case 2 - ' tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen")) + ' tbl_CellStatus = "Nicht eingetroffen" + ' tr.Controls.Add(Cell) Case 3 - tr.Cells.Add(New HtmlTableCell("Ankunft")) + tbl_CellStatus.Text = "Ankunft" + tr.Controls.Add(tbl_CellStatus) Case 4 - tr.Cells.Add(New HtmlTableCell("Vorbereitet")) + tbl_CellStatus.Text = "Vorbereitet" + tr.Controls.Add(tbl_CellStatus) Case 5 - tr.Cells.Add(New HtmlTableCell("Vorgeschrieben")) + tbl_CellStatus.Text = "Vorgeschrieben" + tr.Controls.Add(tbl_CellStatus) Case Else - tr.Cells.Add(New HtmlTableCell("Undefiend")) + tbl_CellStatus.Text = "Undefiend" + tr.Controls.Add(tbl_CellStatus) End Select - tr.Cells.Add(New HtmlTableCell("")) - tr.Cells.Add(New HtmlTableCell("")) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber"))) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber"))) - tr.Cells.Add(New HtmlTableCell(d("LKW_Nr"))) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) - normaltable.Rows.Add(tr) + tbl_Cellvon.Text = d("AvisoEingang").ToString + tr.Controls.Add(tbl_Cellvon) + tbl_Cellbis.Text = d("AvisoEingang").ToString + tr.Controls.Add(tbl_Cellbis) + tbl_CellAbsender.Text = d("Auftraggeber").ToString + tr.Controls.Add(tbl_CellAbsender) + tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString + tr.Controls.Add(tbl_CellEmpfaenger) + tbl_CellLKWs.Text = d("LKW_Nr").ToString + tr.Controls.Add(tbl_CellLKWs) + tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString + tr.Controls.Add(tbl_CellKundAuftNr) + normaltable.Rows.Add(tr) i = i + 1 End If Next + + ElseIf rbt_Vorg.Checked = True Then - rbt_Ankunft.Enabled = False - rbt_Ankunft.Checked = False - rbt_Erf.Enabled = False - rbt_Erf.Checked = False - rbt_Freig.Enabled = False - rbt_Freig.Checked = False - rbt_Vorb.Enabled = False - rbt_Vorb.Checked = False + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5}) + Dim i As Integer = 0 + Dim Cell = New TableCell + For Each d In dt.Rows If i <= dt.Rows.Count Then - tr = New HtmlTableRow() - tr.Cells.Add(New HtmlTableCell(i)) - tr.Cells.Add(New HtmlTableCell("")) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) + 'tr = New HtmlTableRow() + Dim tr = New TableRow + + tbl_CellIndex.Text = i + tr.Controls.Add(tbl_CellIndex) + tbl_CellArt.Text = "" + tr.Controls.Add(tbl_CellArt) + tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString + tr.Controls.Add(tbl_CellKundenNr) + Select Case d("Status") Case 1 - tr.Cells.Add(New HtmlTableCell("Erfasst")) + tbl_CellStatus.Text = "Erfasst" + tr.Controls.Add(tbl_CellStatus) 'Case 2 - ' tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen")) + ' tbl_CellStatus = "Nicht eingetroffen" + ' tr.Controls.Add(Cell) Case 3 - tr.Cells.Add(New HtmlTableCell("Ankunft")) + tbl_CellStatus.Text = "Ankunft" + tr.Controls.Add(tbl_CellStatus) Case 4 - tr.Cells.Add(New HtmlTableCell("Vorbereitet")) + tbl_CellStatus.Text = "Vorbereitet" + tr.Controls.Add(tbl_CellStatus) Case 5 - tr.Cells.Add(New HtmlTableCell("Vorgeschrieben")) + tbl_CellStatus.Text = "Vorgeschrieben" + tr.Controls.Add(tbl_CellStatus) Case Else - tr.Cells.Add(New HtmlTableCell("Undefiend")) + tbl_CellStatus.Text = "Undefiend" + tr.Controls.Add(tbl_CellStatus) End Select - tr.Cells.Add(New HtmlTableCell("")) - tr.Cells.Add(New HtmlTableCell("")) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber"))) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber"))) - tr.Cells.Add(New HtmlTableCell(d("LKW_Nr"))) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) - normaltable.Rows.Add(tr) + tbl_Cellvon.Text = d("AvisoEingang").ToString + tr.Controls.Add(tbl_Cellvon) + tbl_Cellbis.Text = d("AvisoEingang").ToString + tr.Controls.Add(tbl_Cellbis) + tbl_CellAbsender.Text = d("Auftraggeber").ToString + tr.Controls.Add(tbl_CellAbsender) + tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString + tr.Controls.Add(tbl_CellEmpfaenger) + tbl_CellLKWs.Text = d("LKW_Nr").ToString + tr.Controls.Add(tbl_CellLKWs) + tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString + tr.Controls.Add(tbl_CellKundAuftNr) + normaltable.Rows.Add(tr) i = i + 1 End If Next @@ -310,36 +376,58 @@ Partial Class Kundenbereich_Default ElseIf rbt_Erf.Checked = False And rbt_Freig.Checked = False And rbt_Ankunft.Checked = False And rbt_Vorb.Checked = False And rbt_Vorg.Checked = False Then dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis) + + Dim i As Integer = 0 + Dim Cell = New TableCell For Each d In dt.Rows If i <= dt.Rows.Count Then - tr = New HtmlTableRow() - tr.Cells.Add(New HtmlTableCell(i)) - tr.Cells.Add(New HtmlTableCell("")) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) + + 'tr = New HtmlTableRow() + Dim tr = New TableRow + + tbl_CellIndex.Text = i + tr.Controls.Add(tbl_CellIndex) + tbl_CellArt.Text = "" + tr.Controls.Add(tbl_CellArt) + tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString + tr.Controls.Add(tbl_CellKundenNr) + Select Case d("Status") Case 1 - tr.Cells.Add(New HtmlTableCell("Erfasst")) + tbl_CellStatus.Text = "Erfasst" + tr.Controls.Add(tbl_CellStatus) Case 2 - tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen")) + tbl_CellStatus.Text = "Nicht eingetroffen" + tr.Controls.Add(tbl_CellStatus) Case 3 - tr.Cells.Add(New HtmlTableCell("Ankunft")) + tbl_CellStatus.Text = "Ankunft" + tr.Controls.Add(tbl_CellStatus) Case 4 - tr.Cells.Add(New HtmlTableCell("Vorbereitet")) + tbl_CellStatus.Text = "Vorbereitet" + tr.Controls.Add(tbl_CellStatus) Case 5 - tr.Cells.Add(New HtmlTableCell("Vorgeschrieben")) + tbl_CellStatus.Text = "Vorgeschrieben" + tr.Controls.Add(tbl_CellStatus) Case Else - tr.Cells.Add(New HtmlTableCell("Undefiend")) + tbl_CellStatus.Text = "Undefiend" + tr.Controls.Add(tbl_CellStatus) End Select - tr.Cells.Add(New HtmlTableCell(d("AvisoEingang"))) - tr.Cells.Add(New HtmlTableCell(d("AvisoEingang"))) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber"))) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber"))) - tr.Cells.Add(New HtmlTableCell(d("LKW_Nr"))) - tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) - normaltable.Rows.Add(tr) + tbl_Cellvon.Text = d("AvisoEingang").ToString + tr.Controls.Add(tbl_Cellvon) + tbl_Cellbis.Text = d("AvisoEingang").ToString + tr.Controls.Add(tbl_Cellbis) + tbl_CellAbsender.Text = d("Auftraggeber").ToString + tr.Controls.Add(tbl_CellAbsender) + tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString + tr.Controls.Add(tbl_CellEmpfaenger) + tbl_CellLKWs.Text = d("LKW_Nr").ToString + tr.Controls.Add(tbl_CellLKWs) + tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString + tr.Controls.Add(tbl_CellKundAuftNr) + normaltable.Rows.Add(tr) i = i + 1 End If Next @@ -368,9 +456,9 @@ Partial Class Kundenbereich_Default End Sub - 'Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load - ' TableHeaderRow1.TableSection = TableRowSection.TableHeader - '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