使用来自 sql 的 itextsharp vb.net 以 pdf 格式生成 table

Question

我可以创建一个简单的 pdf 文件，如 "Hello world"，但我想使用 vb.net 在 pdf 文件中生成 table。我正在使用 itextsharp 库。

这是我目前尝试过的方法。

    Protected Sub Create_PdfTable_Click(sender As Object, e As EventArgs) Handles Create_PdfTable.Click
    Dim table As New PdfPTable(2)

    table.TotalWidth = 216.0F

    table.LockedWidth = True

    Dim widths As Single() = New Single() {1.0F, 2.0F}
    table.SetWidths(widths)
    table.HorizontalAlignment = 0

    table.SpacingBefore = 20.0F
    table.SpacingAfter = 30.0F

    Dim cell As New PdfPCell(New Phrase("Table Batch"))
    cell.Colspan = 2
    cell.Border = 0
    cell.HorizontalAlignment = 1
    table.AddCell(cell)
    Dim connect As String = "server=localhost\SQLEXPRESS;database=my_db;uid=sa;password=Pass;"
    Using conn As New SqlConnection(connect)
        Dim pdfDoc As New Document()
        Dim pdfWrite As PdfWriter = PdfWriter.GetInstance(pdfDoc, New FileStream("D://Projects/pdf/" & DateTime.Now.ToString("yyyy-MM-dd_HH-mm-ss") & ".pdf", FileMode.Create))
        pdfDoc.Open()

        Dim query As String = "SELECT TOP 10 batch_id, batch_name FROM tbl_batch"
        Dim cmd As New SqlCommand(query, conn)
        Try
            conn.Open()
            Using rdr As SqlDataReader = cmd.ExecuteReader()
                While rdr.Read()
                    table.AddCell(rdr(0).ToString())
                    table.AddCell(rdr(1).ToString())
                End While
            End Using
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try

        pdfDoc.Add(table)
    End Using
End Sub

这段代码生成了一个空白的 pdf 文件，我该如何解决这个问题？

Answer 1

经过几个小时的研究，我找到了答案。只需要在 pdfDoc.Add(table).

之后关闭文档

喜欢：

pdfDoc.Add(table)
pdfDoc.Close()

使用来自 sql 的 itextsharp vb.net 以 pdf 格式生成 table

Generate table in pdf using itextsharp vb.net from sql

sql

vb.net

pdf

itextsharp