使用VB.net创建动态表

我的代码有一个小问题，就是只创建/显示最后一个tablecell。我知道这可能很小，但我不知道我做错了什么。下面是我的代码

    Dim tbl As Table = New Table()

    tblrow = New TableRow
    tblcell = New TableHeaderCell
    tblcell.Text = zone_name
    tblcell.HorizontalAlign = HorizontalAlign.Center
    tblrow.Cells.Add(tblcell)
    tbl.Rows.Add(tblrow)

    tblrow = New TableRow
    tblcell = New TableCell
    lblDesc = New Label
    lblDesc.ID = "lbl_" & zone_name
    lblDesc.Text = randomNum
    tblcell.HorizontalAlign = HorizontalAlign.Center
    tblcell.Controls.Add(lblDesc)
    tblrow.Cells.Add(tblcell)

    tbl.Rows.Add(tblrow)

*********编辑***************

公共函数add_表（ByVal zone_name作为字符串，ByVal hgt作为整数，ByVal randomNum作为整数，ByVal fontSize作为整数）

---

@codingbiz他说：我的代码只是创建/显示最后一个tableCell正确，现在我拿出第二个tableCell，第一个会出现，但我没有得到的是tbl.rows.add（tblrow），所以我不明白为什么它不起作用。它一定是一些小错误你有没有任何css可能隐藏最后一行？另外，如果您在浏览器中查看源代码，源html代码是否同时包含这两行？不，我没有任何css可以隐藏它。当我查看源代码时没有显示，但奇怪的是，当逐步查看它时，表计数是2，所以它必须是我创建的行。我尝试了您的代码，它显示了两行。你一定在什么地方做什么

    Dim tbl As Table = New Table()

    tbl.ID = "tbl_" & zone_name

    tblrow = New TableRow
    tblcell = New TableCell

    tblcell.Text = zone_name
    tblcell.HorizontalAlign = HorizontalAlign.Center
    tblrow.Cells.Add(tblcell)

    tbl.Rows.Add(tblrow)

    tblrow = New TableRow
    tblcell = New TableCell

    lblDesc = New Label
    lblDesc.ID = "lbl_" & zone_name
    lblDesc.Text = randomNum
    tblcell.HorizontalAlign = HorizontalAlign.Center
    tblcell.Controls.Add(lblDesc)
    tblrow.Cells.Add(tblcell)

    tbl.Rows.Add(tblrow)

    Return tbl
End Function


    tblrow = New TableHeaderRow

    tblcell = New TableHeaderCell
    tblcell.Controls.Add(add_table(zone_name, hgt, randomNum, fontSize))
    tblSeatMap.Rows.Add(tblrow)