主题：[求助]求遍历字符组的计数如何做，分数，几分之几

Dim doc As New PrintDoc '定义一个报表

'添加打印内容

Dim img As prt.RenderImage '定义一个图片对象

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.Code39

'Bar.Rotate = Barpro.Rotate.Degree90 '旋转条码

For Each r2 As Row In Tables("zzscjjzb").Rows

    Dim nms() As String = r2("规格").Split("+") '将规格列内容拆分成数组

    For k As Integer = 1 To r2("数量") '加一个循环

        For Each nm As String In nms '遍历参与加工此产品的每个工号

            

            '下面很简单,指定每一个单元格的内容

            rt.Cells(0,0).Text= "工单号"

            rt.Cells(0,1).Text = r2("工单号")

            rt.Cells(4,0).Text= "产品名称"

            rt.Cells(4,1).Text = r2("产品名称")

            rt.Cells(5,0).Text= "颜色"

            rt.Cells(5,1).Text = r2("颜色")

            rt.Cells(6,0).Text= "件数"

            rt.Cells(6,1).Text = r2("件数")

            rt.Cells(7,0).Text= "数量"

            rt.Cells(7,1).Text = r2("数量")

            

            If r2("规格") = "" Then

                rt.Cells(8,0).Text= "套规格"

                rt.Cells(8,1).Text = nm

            Else

                rt.Cells(8,0).Text= "套规格"

                rt.Cells(8,1).Text = r2("规格") & "  /  " & nm

            End If

            

            rt.Cells(9,0).Text= "单据备注"

            rt.Cells(9,1).Text = r2("单据备注")

            rt.Cells(10,0).Text = r2("非标说明")

            

            bar.Code = r2("_Identify")

            img = new prt.RenderImage

            img.Image = bar.GetImage

            img.Height = 13 '"Auto" '高度由图片大小自动决定

            

            ra.Children.Add(rt) '加入到容器中

            ra.Children.Add(img) '加入图片到RenderArea中

            

            Doc.Body.ChildRen.Add(ra) '将容器加入到报表中

            

        Next

    Next

Next

Doc.Preview() '预览报表