Hello Experts,
I have a requirement where I should increment the value of J for each line of execution.
Here is my code, But I want something better than this
For i As Int16 = 0 To ds.Tables(0).Rows.Count - 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), ds.Tables(0).Rows(i)("LIDOT").ToString())
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), ds.Tables(0).Rows(i)("LIPRODCO").ToString())
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), ds.Tables(0).Rows(i)("LITIRSIZ").ToString())
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), ds.Tables(0).Rows(i)("LITIRDPT").ToString())
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "replace price1")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), ds.Tables(0).Rows(i)("LIRR").ToString())
J += 1
If ds.Tables(0).Rows(i)("LIREMARE").ToString().ToUpper() = "BEAD" Then
pdfFormFields.SetField("untitled" + Convert.ToString(J), "Yes")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
ElseIf ds.Tables(0).Rows(i)("LIREMARE").ToString().ToUpper() = "TREAD" Then
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "Yes")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
ElseIf ds.Tables(0).Rows(i)("LIREMARE").ToString().ToUpper() = "SIDEWALK" Then
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "Yes")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
ElseIf ds.Tables(0).Rows(i)("LIREMARE").ToString().ToUpper() = "OTHER" Then
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "Yes")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
ElseIf ds.Tables(0).Rows(i)("LIREMARE").ToString().ToUpper() = "TREADLIFE" Then
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "Yes")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
ElseIf ds.Tables(0).Rows(i)("LIREMARE").ToString().ToUpper() = "INTERIOR" Then
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "Yes")
End If
J += 1
If ds.Tables(0).Rows(i)("LITIRPOS").ToString().ToUpper() = "LEFT FRONT" Then
pdfFormFields.SetField("untitled" + Convert.ToString(J), "Yes")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
ElseIf ds.Tables(0).Rows(i)("LITIRPOS").ToString().ToUpper() = "LEFT REAR" Then
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "Yes")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
ElseIf ds.Tables(0).Rows(i)("LITIRPOS").ToString().ToUpper() = "RIGHT FRONT" Then
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "Yes")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
ElseIf ds.Tables(0).Rows(i)("LITIRPOS").ToString().ToUpper() = "RIGHT REAR" Then
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "Yes")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
ElseIf ds.Tables(0).Rows(i)("LITIRPOS").ToString().ToUpper() = "TRAILER" Then
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "Yes")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
ElseIf ds.Tables(0).Rows(i)("LITIRPOS").ToString().ToUpper() = "OTHER" Then
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), "No")
End If
J += 1
pdfFormFields.SetField("untitled" + Convert.ToString(J), ds.Tables(0).Rows(i)("LIAPPNBR").ToString())
J += 1
K = J
Next
Instead of adding J+=1 at each line of code, I want something nice and less code. This may seem weird for you. But the requirement is like that, I have to do this way by incrementing J for every line of statement executed.
Could someone help me with this please?
P.S: I am not bothered about the down votes. I only want to learn better way of programming