주기가있는 동안 테이블을 생성했지만 마지막 행 iTextSharp를 잘라 버렸습니다. 아무나 아이디어를 수정하여 .... 아래 코드를 참조하십시오.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)
당신이 버려야되는 것 확실합니까? 디버거에서'mesure_tale'을보고 모든 행이 포함되어 있는지 확인 했습니까? 필자는 Thomas Inzina가 제안한대로 마지막 while 행이 while 루프에 의해 추가되지 않는다고 생각합니다. – Phil
난 그냥 디버그 출력을 찾고, 그 사실, 마지막 행이 누락되었습니다 ... 그것은 사이클이 나쁜 건설 ... 오클라호마, 내 사이클을 다시 디버그하고 우리는 볼 것이다 .... THX. – Oliwer11