0

2列の表を描きたいです。最初の列には 2 つの行があり、それぞれに a と b の文字が含まれ、2 番目の列には行が含まれていません。これが私のコードです。

Public Class trialtable
    Inherits System.Web.UI.Page

    Protected Sub trialtable(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim trial As DataTable
        trial = New DataTable
        Dim tbl As New Table()

        Dim szName As String = ""
        Dim szNumber As String = ""
        Dim szsadasd As String = ""
        tbl.BorderColor = Drawing.Color.Black
        tbl.BorderWidth = 1
        tbl.CellPadding = 0
        tbl.CellSpacing = 0

        For i As Integer = 0 To 1
            Dim tr As New TableRow()
            Dim tc1 As New TableCell()
            Dim tc2 As New TableCell()
            Dim tc3 As New TableCell()
            tc1.Controls.Add(New LiteralControl(szName))
            tc2.Controls.Add(New LiteralControl(szNumber))
            tc3.Controls.Add(New LiteralControl(szsadasd))
            tc1.BorderColor = Drawing.Color.Black
            tc1.BorderWidth = 1
            tc2.BorderColor = Drawing.Color.Black
            tc2.BorderWidth = 1
            tc3.BorderColor = Drawing.Color.Black
            tc3.BorderWidth = 1
            tr.Cells.Add(tc1)
            tr.Cells.Add(tc2)
            tr.Cells.Add(tc3)
            tbl.Controls.Add(tr)
        Next
        Me.Controls.Add(tbl)
    End Sub
End Class
4

1 に答える 1

0

a最初の行の最初のセルと 2 行目の最初のセルに値を配置しb、両方の行の 2 番目のセルには何も入れないようにするには、次のコード行を置き換えます...

tc1.Controls.Add(New LiteralControl(szName))
tc2.Controls.Add(New LiteralControl(szNumber))

次のコードで...

If i = 0 Then
    tc1.Controls.Add(New LiteralControl("a"))
Else
    tc1.Controls.Add(New LiteralControl("b"))
End If
tc2.Controls.Add(New LiteralControl(" "))
于 2012-08-22T14:08:15.693 に答える