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

Alter ineffizienter Asp net table code wurde entfernt

Browse Source
This commit is contained in:
ja
2021-09-10 08:28:25 +02:00
parent af38adc973
commit ce79652ab2
2 changed files with 55 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

88
Customers/CustomsAviso.aspx.vb
View File

@@ -19,9 +19,7 @@ Partial Class Kundenbereich_Default
Response.Redirect("../newpageJulius_Sidebar.aspx", True)
End Sub
'Für ASP-NET-Table
'Dim row As TableRow
'Dim dvRow As Data.DataRowView
Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
Dim Kdnrtext = txt_KdNr.Text
@@ -39,6 +37,8 @@ Partial Class Kundenbereich_Default
Dim tr
Dim th
th = New HtmlTableRow()
th.Cells.Add(New HtmlTableCell("Index"))
th.Cells.Add(New HtmlTableCell("Art"))
th.Cells.Add(New HtmlTableCell("Status"))
@@ -49,6 +49,7 @@ Partial Class Kundenbereich_Default
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
@@ -62,13 +63,37 @@ Partial Class Kundenbereich_Default
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})
Dim i As Integer = 0
'Dim Cell = New TableCell
'Dim sb As StringBuilder = New StringBuilder()
'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
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")))
@@ -110,7 +135,6 @@ Partial Class Kundenbereich_Default
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
@@ -158,13 +182,11 @@ Partial Class Kundenbereich_Default
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
'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")))
@@ -207,13 +229,10 @@ Partial Class Kundenbereich_Default
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4})
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")))
@@ -255,16 +274,10 @@ Partial Class Kundenbereich_Default
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()
'Dim tr = New TableRow
'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")))
@@ -297,17 +310,14 @@ 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 i As Integer = 0
'Dim Cell = New TableCell
For Each d In dt.Rows
'Dim tr = New TableRow
If i <= dt.Rows.Count Then
tr = New HtmlTableRow()
'Cell.Controls.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell("nA"))
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
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")))
Select Case d("Status")
Case 1
tr.Cells.Add(New HtmlTableCell("Erfasst"))
@@ -323,17 +333,17 @@ Partial Class Kundenbereich_Default
tr.Cells.Add(New HtmlTableCell("Undefiend"))
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)
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)
i = i + 1
End If
Next
End If
i = i + 1
End If
Next
End If
End Sub