VB 中创建表格(2)

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

Private Function createContactTable() As String
        Try
            Dim dt As DataTable = getInformation()
            Dim i As Integer = 0
            Dim html As New System.Text.StringBuilder
            If dt.Rows.Count = 0 Then
                html.Append("<h4> No contact information avaialble at this time.</h4>")
            Else
                For i = 0 To dt.Rows.Count - 1
                    With html
                        .Append("<table class = ""contactTable"">")
                        .Append("   <tr>")
                        .Append("       <td><b>Company:</b></td>")
                        .Append("       <td>")
                        .Append(dt.Rows(i).Item("COMPANY"))
                        .Append("       </td>")
                        .Append("   </tr>")
                        .Append("   <tr>")
                        .Append("       <td><b>Name:</b></td>")
                        .Append("       <td>")
                        .Append(dt.Rows(i).Item("NAME"))
                        .Append("       </td>")
                        .Append("   </tr>")
                        .Append("   <tr>")
                        .Append("       <td><b>Position:</b></td>")
                        .Append("       <td>")
                        .Append(dt.Rows(i).Item("POSITION"))
                        .Append("       </td>")
                        .Append("   </tr>")
                        .Append("   <tr>")
                        .Append("       <td><b>Phone Number:</b></td>")
                        .Append("       <td>")
                        .Append(dt.Rows(i).Item("PHONE"))
                        .Append("       </td>")
                        .Append("   </tr>")
                        .Append("   <tr>")
                        .Append("       <td><b>E-mail:</b></td>")
                        .Append("       <td>")
                        .Append(dt.Rows(i).Item("EMAIL"))
                        .Append("       </td>")
                        .Append("   </tr>")
                        .Append("</table>")
                        .Append("<HR>")
                    End With
                Next
            End If

            Return html.ToString

        Catch ex As Exception
            Throw
        End Try
    End Function

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!