diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index 0dd785e..09abc48 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -217,29 +217,6 @@ Partial Class Kundenbereich_Default If dt IsNot Nothing Then Dim i As Integer = 0 - 'Dim sb As StringBuilder = New StringBuilder() - - '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 For Each d In dt.Rows Dim Cell = New TableCell @@ -253,8 +230,6 @@ Partial Class Kundenbereich_Default Dim tbl_CellInfo = New TableCell Dim tr = New TableRow - 'tr = New HtmlTableRow() - Dim zahl = i + 1 tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellIndex.Text = zahl @@ -326,7 +301,6 @@ Partial Class Kundenbereich_Default ElseIf (rbt_Vorg.Selected = True Or rbt_Vorg_M.Selected = True) AndAlso tbl_CellStatus.Text = "Vorgeschrieben" Then normaltable.Rows.Add(tr) End If - i += 1 Next End If