使用iText将数据放入表中[重复]

Question

首先，我将数据放入虚拟网格视图中。
数据是在数据库上运行存储过程的结果。
然后我尝试将此数据添加到表中并尝试将数据导出为pdf。

这是我的代码：

 Dim GridView1 As New GridView
    Dim pdfDoc As New iTextSharp.text.Document(iTextSharp.text.PageSize.A1, 10.0F, 10.0F, 10.0F, 0.0F)
    pdfDoc.Open()
    Dim pdfTable As New PdfPTable(3)
    For Each row As GridViewRow In GridView1.Rows
        Dim Val1 As String = row.Cells(0).Text
        Dim Val2 As String = row.Cells(1).Text
        Dim Val3 As String = row.Cells(2).Text
    Next
    pdfDoc.Add(pdfTable)
    pdfDoc.Close()

现在如何将这些值（val1、val2、val3）添加到表中，然后导出为 pdf？

有什么帮助吗？

Answer 1

这是错误的：

Dim pdfTable As New PdfPTable(3)
For Each row As GridViewRow In GridView1.Rows
    Dim Val1 As String = row.Cells(0).Text
    Dim Val2 As String = row.Cells(1).Text
    Dim Val3 As String = row.Cells(2).Text
Next

这是错误的，因为您只是定义了三个 string 值，而没有对这些值做任何事情。为什么那会奏效？您的代码中什么也没有发生。

您需要将这些string 值添加到您刚刚定义的table。

Dim pdfTable As New PdfPTable(3)
For Each row As GridViewRow In GridView1.Rows
    pdfTable.Add(row.Cells(0).Text)
    pdfTable.Add(row.Cells(1).Text)
    pdfTable.Add(row.Cells(2).Text)
Next

或者更确切地说，正如这个问题的答案中所解释的那样：dataGridView to pdf with itextsharp

PdfPTable pdfTable= new PdfPTable(3);
foreach(DataGridViewRow row in dataGridView1.Rows) {
    foreach (DataGridViewCell celli in row.Cells) {
        pdfTable.AddCell(celli.Value.ToString());
    }
}
doc.Add(pdfTable);

您需要应用一些小的更改来将此 C# sn-p 移植到 VBA 代码，但这应该不是问题。

在如何定义PdfPTable 的单元格样式方面也没有很多变化。它们记录在官方网站上。

Answer 2

这是一些用于处理表格的示例 iText 代码。

Document document = new Document();
PdfWriter.getInstance(document, new FileOutputStream(dest));
document.open();
PdfPTable table = new PdfPTable(8);
for(int aw = 0; aw < 16; aw++){
    table.addCell("hi");
}
document.add(table);
document.close();