数字输出或数字水晶报表/vb.net

我制作了一个应用程序，可以打印一些报告

假设我将设置要打印的两个报告：第一个报告将打印1/2，第二个报告将打印2/2

我想你必须使用一个循环或类似的东西。有什么帮助吗？提前谢谢

`` 
     Dim paramField12 As New ParameterField()
     Dim discreteVal12 As New ParameterDiscreteValue()

     paramField12.ParameterFieldName = "Pallets"
     Dim str12 As String = lblMikos.Text.ToString
     discreteVal12.Value = str12
     paramField12.CurrentValues.Add(discreteVal12)
     paramFields.Add(paramField12)

     crViewer.ParameterFieldInfo = paramFields
     crViewer.ReportSource = report
     report.PrintToPrinter(Me.txtSumPallets.Text.ToString, False, 0, 0) 

---

这就是我将表格中的数据传递到报表的方式，因此我希望从第12个字段中根据SumPallets统计页面，并打印1/2，2/2

看起来你想让我们为你写些代码。虽然许多用户愿意为陷入困境的程序员编写代码，但他们通常只在海报已经试图自己解决问题时才提供帮助。演示这项工作的一个好方法是包括您迄今为止编写的代码、示例输入（如果有）、预期输出和实际获得的输出（控制台输出、回溯等）。你提供的细节越多，你可能得到的答案就越多。检查和。用代码更新。我试过了dim i as integer dim c as integer c=txtSumPallets.text.tostring for i=0 to c paramField12.ParameterFieldName=“Pallets”dim str12 as String=i+1 discreteVal12.Value=str12 paramField12.CurrentValues.Add（discreteVal12）paramFields.Add（paramField12）next``但它不起作用