Foxtable(狐表)用户栏目专家坐堂 → [求助]求遍历字符组的计数如何做,分数,几分之几


  共有191人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
myjht
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:186 积分:1172 威望:0 精华:0 注册:2017/4/14 15:58:00
[求助]求遍历字符组的计数如何做,分数,几分之几  发帖心情 Post By:2021/4/8 10:59:00 [只看该作者]

求如下图,规格列“3左+3右”,按“+”拆分后计数,和当前打印第几个的语句如何写,

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20210315102558.jpg
图片点击可在新窗口打开查看


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() '预览报表

 回到顶部
帅哥哟,离线,有人找我吗?
myjht
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:186 积分:1172 威望:0 精华:0 注册:2017/4/14 15:58:00
  发帖心情 Post By:2021/4/8 11:18:00 [只看该作者]

代码
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:代码.txt


 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:67455 积分:341959 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/8 11:20:00 [只看该作者]

这个意思?

Dim nms() As String = r2("规格").Split("+")
For i as integer = 0 to nms.length - 1
msgbox((i+1) & "/" & nms.length)
next

 回到顶部
帅哥哟,离线,有人找我吗?
myjht
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:186 积分:1172 威望:0 精华:0 注册:2017/4/14 15:58:00
[求助]求遍历字符组的计数如何做,分数,几分之几  发帖心情 Post By:2021/4/8 14:56:00 [只看该作者]

感谢篮版,不过我加到那个位置合适?我的循环冲突了

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

For Each r2 As Row In Tables("zzscjjzb").Rows
    Dim nms() As String = r2("规格").Split("+") '将规格列内容拆分成数组

    For k As Integer = 1 To r2("数量") '加一个循环
        
        For i As Integer = 0 To nms.length - 1
            
            For Each nm As String In nms '遍历参与加工此产品的每个工号

                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
                    
                    rt.Cells(8,1).Text = r2("规格") & "  /  " & nm  &  (i+1) & "/" & nms.length
                    
                End If

                ra.Children.Add(rt) '加入到容器中
                ra.Children.Add(img) '加入图片到RenderArea中
                
                Doc.Body.ChildRen.Add(ra) '将容器加入到报表中
            Next
        Next
    Next
Next


Doc.Preview() '预览报表


 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:67455 积分:341959 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/8 15:22:00 [只看该作者]

    For k As Integer = 1 To r2("数量") '加一个循环
        
        For i As Integer = 0 To nms.length - 1
            
            '删除这行For Each nm As String In nms '遍历参与加工此产品的每个工号
dim nm as string = nms(i)
                rt.Cells(4,1).Text = r2("产品名称")
                rt.Cells(5,0).Text= "颜色"
                rt.Cells(5,1).Text = r2("颜色")

 回到顶部
帅哥哟,离线,有人找我吗?
myjht
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:186 积分:1172 威望:0 精华:0 注册:2017/4/14 15:58:00
  发帖心情 Post By:2021/4/8 16:50:00 [只看该作者]

感谢篮版,
新手小白,憋了好几天,最后一个问题,如果r2(“产品名称”)包含“外阜”这个文字,条码打印4份,否则打印1份,
对应的rt.Cells(8,1).Text = r2("规格") & "  /  " & nm  &  (i+1) & "/" & nms.length,也要同步,这个应该怎么写。

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:67455 积分:341959 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/8 17:01:00 [只看该作者]

没看懂,意思是总共要打印4 X nms.length 这么多份?

 回到顶部
帅哥哟,离线,有人找我吗?
myjht
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:186 积分:1172 威望:0 精华:0 注册:2017/4/14 15:58:00
[求助]求遍历字符组的计数如何做,分数,几分之几  发帖心情 Post By:2021/4/9 9:37:00 [只看该作者]

蓝版,是的,打印4份条码。

图片点击可在新窗口打开查看此主题相关图片如下:6a723f2e-12b1-49f1-a173-53e7be6d1a62.png
图片点击可在新窗口打开查看
代码如下:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:代码.txt



 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:67455 积分:341959 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/9 9:57:00 [只看该作者]


For Each r2 As Row In Tables("zzscjjzb").Rows
    Dim nms() As String = r2("规格").Split("+") '将规格列内容拆分成数组
    For k As Integer = 1 To r2("数量") '加一个循环
dim k as integer = 0
if r2(“产品名称”)like“*外阜*”then k = 3
dim g as integer = nms.length
if k>0 then g = g * (k+1)
dim idx as integer = 1
for m as integer = 0 to k
        For i As Integer = 0 To nms.length - 1
            Dim nm As String = nms(i)
            
            Dim rt As New prt.RenderTable() '定义一个表格对象
            Dim rx As New prt.RenderText '定义一个文本对象
……
            
            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 &    idx & "/" & g
idx += 1
            End If

 回到顶部
帅哥哟,离线,有人找我吗?
myjht
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:186 积分:1172 威望:0 精华:0 注册:2017/4/14 15:58:00
[求助]求遍历字符组的计数如何做,分数,几分之几  发帖心情 Post By:2021/4/10 16:48:00 [只看该作者]

篮版,谢谢您,终于搞出来了,就是300张条码以上容易死机图片点击可在新窗口打开查看
应该是代码循环的太多了吧?这判断也只能这样子了,不知如何优化
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:代码.txt



 回到顶部
总数 11 1 2 下一页