vb.net - VB.net を使用して動的テーブルを作成する

Question

コードでこの小さな問題が発生しているのは、最後のテーブルセルのみを作成/表示することです。おそらく小さいことは知っていますが、何が間違っているのかわかりません。以下は私のコードです。

    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)

** * ** * *編集* ** * ** * ** * ***

Public Function add_table (ByVal zone_name As String, ByVal hgt As Integer, ByVal randomNum As Integer, ByVal fontSize As Integer)

    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)