studytable2.aspx.vb

来自「该文件包括了WEB标单控件应用的所有实例代码」· VB 代码 · 共 26 行


Partial Class studyTable2
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim numrows As Integer
        numrows = 3
        Dim numcells As Integer
        numcells = 2
        Dim i As Integer
        Dim j As Integer
        For j = 0 To numrows - 1
            Dim r As TableRow
            r = New TableRow()
            For i = 1 To numcells
                Dim c As TableCell
                c = New TableCell()
                c.Controls.Add(New LiteralControl("row" & j.ToString() & ",cell" & i.ToString()))
                r.Cells.Add(c)

            Next i
            table1.Rows.Add(r)
        Next
    End Sub
End Class