'生成表格
        Dim myrow As HtmlTableRow
        Dim mycell As HtmlTableCell
        For i = 1 To mydataset.Tables("taskbookprj").Rows.Count
            myrow = New HtmlTableRow()
            For j = 0 To 7
                mycell = New HtmlTableCell()
                mycell.Controls.Add(New LiteralControl())
                myrow.Cells.Add(mycell)
            Next
            TableItem.Rows.Add(myrow)
        Next

解决方案 »

  1.   

    他用的是webcontrol控件,上面的仁兄给的代码怎么好像是html控件的啊?Sub btn_search_click(ByVal sender As Object, ByVal E As EventArgs)
      Dim Tablerow_result_detail_Container_1 As TableRow
      Dim Tablerow_result_detail_Container_cell_1 As TableCell
      Tablerow_result_detail_Container_cell_1.Text = "ddddd"
    "
      Tablerow_result_detail_Container_1.Cells.Add (Tablerow_result_detail_Container_cell_1)
    "这段去掉
      Table_result_Container.Rows.Add
    "(Tablerow_result_detail_Container_1)"
    上面括号里的换成Tablerow_result_detail_Container_cell_1试试.
    End Sub
      

  2.   

    只要加上
    Tablerow_result_detail_Container_1 = New TableRow()
    Tablerow_result_detail_Container_cell_1 = New TableCell()
    就行了?如果我想新加一行(有两列)且为第一列加一个table web控件怎么办?Dim Table_result_1 As New Table()
    Dim Table_result_1_row_1 As New TableRow()
    Dim Table_result_1_row_1_cell As New TableCell()Table_result_1_row_1.Cells.Add(Table_result_1_row_1_cell)
    Table_result_1_row_1_cell.Text = "ddddd"Dim Table_result_Container_row_1 As New TableRow()
    Dim Table_result_Container_row_1_cell_1 As New TableCell()
    Dim Table_result_Container_row_1_cell_2 As New TableCell()
    Table_result_Container.Rows.Add(Table_result_Container_row_1)
    Table_result_Container_row_1.Cells.Add(Table_result_Container_row_1_cell_1)
    Table_result_Container_row_1.Cells.Add(Table_result_Container_row_1_cell_2)
    Table_result_Container_row_1_cell_1.Controls.Add(Table_result_1)加的table显示了,但里面无我设置的内容"ddddd"。
    错在什么地方?
    下面是网页源码内容:可见table已经加上了!
    <tr>
    <td><table border="0"></table></td>
    <td></td>
    </tr>