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


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

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

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册: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

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册: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("颜色")

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/8 17:01:00 [显示全部帖子]

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

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册: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

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/10 16:57:00 [显示全部帖子]

减少一次性打印的内容,分批处理。比如一次打印10行20行的数据

 回到顶部