iTextSharp - テーブルの最後の行を切り捨てます。

Question

私はサイクル中にテーブルを生成しましたが、最後の行はiTextSharpを切り捨てました。

mesure_tale.AddCell(New PdfPCell(New Phrase("č.m.", spec_font))) 
     mesure_tale.AddCell(New PdfPCell(New Phrase("Hodnota (mm)", spec_font))) 
     mesure_tale.AddCell(New PdfPCell(New Phrase("č.m.", spec_font))) 
     mesure_tale.AddCell(New PdfPCell(New Phrase("Hodnota (mm)", spec_font))) 
     mesure_tale.AddCell(New PdfPCell(New Phrase("č.m.", spec_font))) 
     mesure_tale.AddCell(New PdfPCell(New Phrase("Hodnota (mm)", spec_font))) 
     mesure_tale.AddCell(New PdfPCell(New Phrase("č.m.", spec_font))) 
     mesure_tale.AddCell(New PdfPCell(New Phrase("Hodnota (mm)", spec_font))) 

     Dim mesure_array As Double() = dgv_do_array(cislo_merania) 
     Dim average_value As Double = create_average(cislo_merania) 

     Dim k As Integer = 0 
     While k < cislo_merania 
      mesure_tale.AddCell(New PdfPCell(New Phrase(k + 1, spec_font))) 
      Dim mesure_cell As New PdfPCell(New Phrase(mesure_array(k).ToString, spec_font)) 

      If mesure_array(k) > (average_value + (average_value * percentualna_odchylka)) Then 
       mesure_cell.BackgroundColor = New BaseColor(255, 120, 120) 'Red 
       mesure_tale.AddCell(mesure_cell) 
      ElseIf mesure_array(k) < (average_value - (average_value * percentualna_odchylka)) Then 
       mesure_cell.BackgroundColor = New BaseColor(120, 170, 255) 'Blue 
       mesure_tale.AddCell(mesure_cell) 
      Else 
       mesure_cell.BackgroundColor = New BaseColor(175, 255, 120) ' Green 
       mesure_tale.AddCell(mesure_cell) 
      End If 
      k += 1 
     End While 

     pdfDoc.Add(mesure_tale) 

Answer 1

私はdgv_do_array(cislo_merania)が配列でない配列の実際の長さの最も高いバウンドを返していると思います。

変更

ながらK < cislo_merania

へ

ながらK < = cislo_merania