Änderungen
This commit is contained in:
ja
@@ -18,13 +18,16 @@ Partial Class Kundenbereich_Default
|
||||
Session.Abandon()
|
||||
Response.Redirect("../newpageJulius_Sidebar.aspx", True)
|
||||
End Sub
|
||||
Dim dt0, dt1, dt3, dt4, dt5, dt6
|
||||
Dim dtmain As DataTable = New DataTable
|
||||
|
||||
'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
|
||||
Dim datevon As Date
|
||||
Dim datebis As Date
|
||||
|
||||
Dim dt
|
||||
Try
|
||||
datevon = pickdate1.SelectedDate
|
||||
datebis = pickdate2.SelectedDate
|
||||
@@ -33,260 +36,188 @@ Partial Class Kundenbereich_Default
|
||||
datebis = DateValue(Date.Now)
|
||||
End Try
|
||||
|
||||
Dim tr
|
||||
|
||||
|
||||
If rbt_Erf.Checked = True Then
|
||||
dt0 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})
|
||||
dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
|
||||
Dim i As Integer = 1
|
||||
For Each d In dt0.Rows
|
||||
Dim tr As HtmlTableRow = New HtmlTableRow()
|
||||
tr.Cells.Add(New HtmlTableCell(i))
|
||||
'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Status")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("von")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("bis")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("Absender")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))
|
||||
dtmain.Rows.Add(tr)
|
||||
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 dtmain.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 dtmain.Rows
|
||||
sb.Append("<tr>")
|
||||
For Each column As DataColumn In dtmain.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
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})
|
||||
|
||||
Dim i As Integer = 0
|
||||
'Dim Cell = New TableCell
|
||||
|
||||
For Each d In dt.Rows
|
||||
'Dim tr = New TableRow
|
||||
tr = New HtmlTableRow()
|
||||
Do
|
||||
'Cell.Controls.Add(New HtmlTableCell(i))
|
||||
tr.Cells.Add(New HtmlTableCell(""))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
||||
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")))
|
||||
tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
|
||||
trContent.Rows.Add(tr)
|
||||
|
||||
i = i + 1
|
||||
Loop
|
||||
While i <= dt.Rows.Count
|
||||
|
||||
End While
|
||||
|
||||
i = i + 1
|
||||
Next
|
||||
ElseIf rbt_Freig.Checked = True Then
|
||||
dt1 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, pickdate1.SelectedDate, pickdate2.SelectedDate)
|
||||
dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
|
||||
Dim i As Integer = 1
|
||||
For Each d In dt1.Rows
|
||||
Dim tr As HtmlTableRow = New HtmlTableRow()
|
||||
tr.Cells.Add(New HtmlTableCell(i))
|
||||
'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Status")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("von")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("bis")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("Absender")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))
|
||||
dtmain.Rows.Add(tr)
|
||||
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 dtmain.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 dtmain.Rows
|
||||
sb.Append("<tr>")
|
||||
For Each column As DataColumn In dtmain.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
|
||||
|
||||
i = i + 1
|
||||
ElseIf rbt_Freig.Checked = True Then
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, datevon, datebis)
|
||||
|
||||
Dim i As Integer = 0
|
||||
'Dim Cell = New TableCell
|
||||
tr = New HtmlTableRow()
|
||||
For Each d In dt.Rows
|
||||
'Dim tr = New TableRow
|
||||
|
||||
Do
|
||||
'Cell.Controls.Add(New HtmlTableCell(i))
|
||||
tr.Cells.Add(New HtmlTableCell(""))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
||||
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")))
|
||||
tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
|
||||
trContent.Rows.Add(tr)
|
||||
|
||||
i = i + 1
|
||||
Loop
|
||||
While i <= dt.Rows.Count
|
||||
|
||||
End While
|
||||
|
||||
Next
|
||||
ElseIf rbt_Ankunft.Checked = True Then
|
||||
dt3 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3})
|
||||
'dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(Button))})
|
||||
Dim i As Integer = 1
|
||||
For Each d In dt3.Rows
|
||||
Dim tr As HtmlTableRow = New HtmlTableRow()
|
||||
tr.Cells.Add(New HtmlTableCell(i))
|
||||
'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Status")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("von")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("bis")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("Absender")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
|
||||
dtmain.Rows.Add(tr)
|
||||
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 dtmain.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 dtmain.Rows
|
||||
sb.Append("<tr>")
|
||||
For Each column As DataColumn In dtmain.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
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3})
|
||||
|
||||
Dim i As Integer = 0
|
||||
'Dim Cell = New TableCell
|
||||
tr = New HtmlTableRow()
|
||||
For Each d In dt.Rows
|
||||
'Dim tr = New TableRow
|
||||
|
||||
Do
|
||||
'Cell.Controls.Add(New HtmlTableCell(i))
|
||||
tr.Cells.Add(New HtmlTableCell(""))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
||||
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")))
|
||||
tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
|
||||
trContent.Rows.Add(tr)
|
||||
|
||||
i = i + 1
|
||||
Loop
|
||||
While i <= dt.Rows.Count
|
||||
|
||||
End While
|
||||
|
||||
i = i + 1
|
||||
Next
|
||||
|
||||
ElseIf rbt_Vorb.Checked = True Then
|
||||
dt4 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4})
|
||||
dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
|
||||
Dim i As Integer = 1
|
||||
For Each d In dt4.Rows
|
||||
Dim tr As HtmlTableRow = New HtmlTableRow()
|
||||
tr.Cells.Add(New HtmlTableCell(i))
|
||||
'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Status")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("von")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("bis")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("Absender")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))
|
||||
dtmain.Rows.Add(tr)
|
||||
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 dtmain.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 dtmain.Rows
|
||||
sb.Append("<tr>")
|
||||
For Each column As DataColumn In dtmain.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
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4})
|
||||
|
||||
i = i + 1
|
||||
Dim i As Integer = 0
|
||||
'Dim Cell = New TableCell
|
||||
tr = New HtmlTableRow()
|
||||
For Each d In dt.Rows
|
||||
'Dim tr = New TableRow
|
||||
|
||||
Do
|
||||
'Cell.Controls.Add(New HtmlTableCell(i))
|
||||
tr.Cells.Add(New HtmlTableCell(""))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
||||
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")))
|
||||
tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
|
||||
trContent.Rows.Add(tr)
|
||||
|
||||
i = i + 1
|
||||
Loop
|
||||
While i <= dt.Rows.Count
|
||||
|
||||
End While
|
||||
Next
|
||||
|
||||
ElseIf rbt_Vorg.Checked = True Then
|
||||
dt5 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5})
|
||||
dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
|
||||
Dim i As Integer = 1
|
||||
For Each d In dt5.Rows
|
||||
Dim tr As HtmlTableRow = New HtmlTableRow()
|
||||
tr.Cells.Add(New HtmlTableCell(i))
|
||||
'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Status")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("von")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("bis")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("Absender")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))
|
||||
dtmain.Rows.Add(tr)
|
||||
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 dtmain.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 dtmain.Rows
|
||||
sb.Append("<tr>")
|
||||
For Each column As DataColumn In dtmain.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
|
||||
i = i + 1
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5})
|
||||
|
||||
Dim i As Integer = 0
|
||||
'Dim Cell = New TableCell
|
||||
tr = New HtmlTableRow()
|
||||
For Each d In dt.Rows
|
||||
'Dim tr = New TableRow
|
||||
|
||||
Do
|
||||
'Cell.Controls.Add(New HtmlTableCell(i))
|
||||
tr.Cells.Add(New HtmlTableCell(""))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
||||
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")))
|
||||
tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
|
||||
trContent.Rows.Add(tr)
|
||||
|
||||
i = i + 1
|
||||
Loop
|
||||
While i <= dt.Rows.Count
|
||||
|
||||
End While
|
||||
Next
|
||||
|
||||
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
|
||||
dt6 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis)
|
||||
dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
|
||||
Dim i As Integer = 1
|
||||
For Each d In dt6.Rows
|
||||
Dim tr As HtmlTableRow = New HtmlTableRow()
|
||||
tr.Cells.Add(New HtmlTableCell(i))
|
||||
'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Status")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("von")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("bis")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("Absender")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
||||
'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))
|
||||
dtmain.Rows.Add(tr)
|
||||
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 dtmain.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 dtmain.Rows
|
||||
sb.Append("<tr>")
|
||||
For Each column As DataColumn In dtmain.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
|
||||
i = i + 1
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis)
|
||||
|
||||
Dim i As Integer = 0
|
||||
'Dim Cell = New TableCell
|
||||
tr = New HtmlTableRow()
|
||||
For Each d In dt.Rows
|
||||
'Dim tr = New TableRow
|
||||
|
||||
Do
|
||||
'Cell.Controls.Add(New HtmlTableCell(i))
|
||||
tr.Cells.Add(New HtmlTableCell(""))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
||||
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")))
|
||||
tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
|
||||
trContent.Rows.Add(tr)
|
||||
|
||||
i = i + 1
|
||||
Loop
|
||||
While i <= dt.Rows.Count
|
||||
|
||||
End While
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
Protected Sub rbt_Freig_Click(sender As Object, e As EventArgs)
|
||||
MsgBox("Es funzt!")
|
||||
@@ -304,19 +235,7 @@ Partial Class Kundenbereich_Default
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Me.IsPostBack Then
|
||||
Dim dt As DataTable = New DataTable
|
||||
dt.Columns.AddRange(New DataColumn() {New DataColumn("Id", GetType(System.Int32)), New DataColumn("Name", GetType(System.String)), New DataColumn("Country", GetType(System.String))})
|
||||
dt.Rows.Add(1, "John Hammond", "United States")
|
||||
dt.Rows.Add(2, "Mudassar Khan", "India")
|
||||
dt.Rows.Add(3, "Suzanne Mathews", "France")
|
||||
dt.Rows.Add(4, "Robert Schidner", "Russia")
|
||||
|
||||
Dim sb As StringBuilder = New StringBuilder()
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||
' TableHeaderRow1.TableSection = TableRowSection.TableHeader
|
||||
'End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user