Dim tablex As New HtmlControls.HtmlTable For i As Integer = 0 To Table1.Rows.Count - 1 Dim tr As New HtmlControls.HtmlTableRow For j As Integer = 0 To Table1.Rows(0).Cells.Count - 1 Dim td As New HtmlControls.HtmlTableCell td.InnerText = Table1.Rows(i).Cells(j).InnerText tr.Cells.Add(td) Next tablex.Rows.Add(tr) Next tablex.Visible = True tablex.ID = "table2" tablex.Border = 1 tablex.CellPadding = 1 tablex.CellSpacing = 1 Me.Controls.Add(tablex)
For i As Integer = 0 To Table1.Rows.Count - 1
Dim tr As New HtmlControls.HtmlTableRow
For j As Integer = 0 To Table1.Rows(0).Cells.Count - 1
Dim td As New HtmlControls.HtmlTableCell
td.InnerText = Table1.Rows(i).Cells(j).InnerText
tr.Cells.Add(td)
Next
tablex.Rows.Add(tr)
Next
tablex.Visible = True
tablex.ID = "table2"
tablex.Border = 1
tablex.CellPadding = 1
tablex.CellSpacing = 1
Me.Controls.Add(tablex)
我已经用Response.Write画出来个表格