VB 中创建表格(2)

大佬教程收集整理的这篇文章主要介绍了VB 中创建表格(2)，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

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

大佬总结

以上是大佬教程为你收集整理的VB 中创建表格(2)全部内容，希望文章能够帮你解决VB 中创建表格(2)所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。