Question

我是vb的HTML初学者。我如何使用我已填充的列表，该列表由另一个类中的vb函数返回，以填充我的html文档中的html表？

Answer 1

虽然我们完全不知道你想要什么，但是使用xml文字和嵌入式表达式来创建从列表中获取的html结构可能会有所帮助。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Taxpayers As New List(Of Taxpayer) From {
            New Taxpayer With
            {.ID = 1, .FirstName = "Karen", .LastName = "Payne", .BirthDay = #9/24/1956#, .ZipCode = "22222"},
            New Taxpayer With
            {.ID = 2, .FirstName = "Bill", .LastName = "Smith", .BirthDay = #9/24/1964#, .ZipCode = "23456"}
        }

        Dim htmlContent As String =
            <html>
                <style type="text/css">     
                TD {background-color: green;color: #F0F8FF;padding-right:15px;}
                .THeader {background-color: Yellow;color: Black;}
            </style>
                <body>
                    <table border="0">
                        <tr>
                            <td class='THeader'>First</td>
                            <td class='THeader'>Last</td>
                            <td class='THeader'>Birthday</td>
                            <td class='THeader'>postal</td>
                        </tr>
                        <%= From tp In Taxpayers Select
                            <tr>
                                <td width="80px"><%= tp.FirstName %></td>
                                <td width="45px"><%= tp.LastName %></td>
                                <td width="40px"><%= tp.BirthDay.ToShortDateString %></td>
                                <td width="25px"><%= tp.ZipCode %></td>
                            </tr> %>
                    </table>
                </body>
            </html>.ToString

    End Sub
End Class
Public Class Taxpayer
    Public Property ID As Integer
    Public Property FirstName As String
    Public Property LastName As String
    Public Property BirthDay As Date
    Public Property ZipCode As String
    Public Sub New()

    End Sub

End Class

从vb列表填充HTML表

1 个答案: