codedesign wurde geändert

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("<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
                 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