Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【求助】关于循环的最后一个数字


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

主题：【求助】关于循环的最后一个数字
帅哥哟，离线，有人找我吗？
18801459487
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：519 威望：0 精华：0 注册：2020/6/14 8:45:00 		【求助】关于循环的最后一个数字  发帖心情 Post By：2020/7/24 21:57:00 [只看该作者]

答案排序，循环语句，最后一个数字，如何变成总计的数字，例如总共101题，最后一个数字是101，而不是96-100，或者说再加一题，最后一行显示101-102

自己越改越不对啦，求大神指点


图片点击可在新窗口打开查看此主题相关图片如下：答案排序.png
图片点击可在新窗口打开查看






'答案报表

Dim daaa As New prt.RenderArea
daaa.Stacking = prt.StackingRulesEnum.InlineLeftToRight
doc.Body.Children.Add(daaa)
daaa.Width = "Parent.Width"
For i As Integer = tbl.TopRow To tbl.BottomRow Step 5
    Dim rw As Row = tbl.Rows(i)
    Dim h As Integer
    Dim s As String = rw("答案")
    For j As Integer = 1 To 4
        If i+j <= tbl.BottomRow
            rw  = tbl.Rows(i+j)
            s = s & rw("答案")
            s = s.ToUpper
            h = i-tbl.TopRow
        End If
    Next
    Output.Show(h)
    Dim xhda As New prt.RenderText '定义一个文本对象
    Dim da As New prt.RenderArea '定义一个容器
    da.Width = 45 '宽度53毫米
    'da.Height = 24 '高度24毫米
    da.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
    da.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
    daaa.ChildRen.Add(da) '将容器加入到报表中
    '加入标题
    xhda.text = h+1 & "-" & h+5 & ":" &  s
    'xhda.Style.FontBold = True '字体加粗
    xhda.Style.FontSize = 16 '大体大小为16磅
    
    da.Children.Add(xhda) '加入到容器中
    
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/25 9:54:00 [只看该作者]

其实解决方法就在上面啦，想想为什么最后一行答案只有一个D？原来的代码是怎么处理的？仔细思考一下下面的代码

    For j As Integer = 1 To 4
        If i+j <= tbl.BottomRow
            rw  = tbl.Rows(i+j)
            s = s & rw("答案")
            s = s.ToUpper
            h = i-tbl.TopRow
        End If
    Next
 回到顶部
帅哥哟，离线，有人找我吗？
18801459487
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：519 威望：0 精华：0 注册：2020/6/14 8:45:00 		  发帖心情 Post By：2020/7/29 15:13:00 [只看该作者]

以下是引用有点蓝在2020/7/25 9:54:00的发言
亲，还是不会，我自己前几天改了一个凑合能用，后来换个参数又不行啦
特别想知道，怎么直接代码，让最后一个数字是101，而不是96-100，或者说再加一题，最后一行显示101-102


'答案报表

Dim daaa As New prt.RenderArea
daaa.Stacking = prt.StackingRulesEnum.InlineLeftToRight
doc.Body.Children.Add(daaa)
daaa.Width = "Parent.Width"
For i As Integer = tbl.TopRow To tbl.BottomRow Step 5
    Dim rw As Row = tbl.Rows(i)
    Dim h As Integer
    Dim s As String = rw("答案")
    For j As Integer = 1 To 4
        If i+j < tbl.BottomRow Then
            rw  = tbl.Rows(i+j)
            s = s & rw("答案")
            s = s.ToUpper
            h = i-tbl.TopRow
 ElseIf i+j = tbl.BottomRow Then
            rw  = tbl.Rows(tbl.BottomRow )
            s = s & rw("答案")
            s = s.ToUpper
            h = i-tbl.TopRow


        End If
    Next
    Output.Show(h)
    Dim xhda As New prt.RenderText '定义一个文本对象
    Dim da As New prt.RenderArea '定义一个容器
    da.Width = 45 '宽度53毫米
    'da.Height = 24 '高度24毫米
    da.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
    da.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
    daaa.ChildRen.Add(da) '将容器加入到报表中
    '加入标题
    xhda.text = h+1 & "-" & h+5 & ":" &  s
Dim xs As Integer
If i = tbl.BottomRow Then
xs = (tbl.BottomRow-tbl.TopRow+1) Mod 5
 If xs=1 Then
rw  = tbl.Rows(tbl.BottomRow)
            s = rw("答案")
            s = s.ToUpper
            h = tbl.BottomRow-tbl.TopRow+1


xhda.text = h  & ":" &  s
Else
 xhda.text = h+1 & "-" & h+5 & ":" &  s
End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/29 15:29:00 [只看该作者]

Dim daaa As New prt.RenderArea
daaa.Stacking = prt.StackingRulesEnum.InlineLeftToRight
doc.Body.Children.Add(daaa)
daaa.Width = "Parent.Width"
Dim rc As Integer = tbl.BottomRow - tbl.TopRow + 1
For i As Integer = tbl.TopRow To tbl.BottomRow Step 5
    Dim rw As Row = tbl.Rows(i)
    Dim h As Integer
    Dim s As String = rw("答案")
    For j As Integer = 1 To 4
        If i+j <= tbl.BottomRow
            rw  = tbl.Rows(i+j)
            s = s & rw("答案")
            s = s.ToUpper
            h = i-tbl.TopRow
        End If
    Next
    Output.Show(h)
    Dim xhda As New prt.RenderText '定义一个文本对象
    Dim da As New prt.RenderArea '定义一个容器
    da.Width = 45 '宽度53毫米
    'da.Height = 24 '高度24毫米
    da.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
    da.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
    daaa.ChildRen.Add(da) '将容器加入到报表中
    '加入标题
    xhda.text = h+1 & "-" & math.min(h+5,rc) & ":" &  s
    'xhda.Style.FontBold = True '字体加粗
    xhda.Style.FontSize = 16 '大体大小为16磅
    
    da.Children.Add(xhda) '加入到容器中
    
Next
 回到顶部
帅哥哟，离线，有人找我吗？
18801459487
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：519 威望：0 精华：0 注册：2020/6/14 8:45:00 		  发帖心情 Post By：2020/7/30 11:05:00 [只看该作者]

以下是引用有点蓝在2020/7/29 15:29:00的发言：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:单选批量输出8.table


亲，其他都还好，感谢帮助。可还是有bug 啊，感觉没道理啊，就是改不过来啦，默认的是打印全部，可是为啥最后一个答案选项，总是出来汉字答案呢
我把程序上传了，批量输出窗口，代码都在  打印预览3按钮里啦，代码拉到最后，是关于答案排序的
感谢大神指点，非常感谢

图片点击可在新窗口打开查看此主题相关图片如下：11.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：22.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/30 12:15:00 [只看该作者]

    Dim rw As Row = tbl.Rows(i)
    Dim h As Integer
    Dim s As String = rw("答案")
    For j As Integer = 1 To 4
        If i+j < qs+js-1
            rw  = tbl.Rows(i+j)
            s = s & rw("答案")
            s = s.ToUpper
            h = i-qs
        End If
    Next
 回到顶部
帅哥哟，离线，有人找我吗？
18801459487
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：519 威望：0 精华：0 注册：2020/6/14 8:45:00 		  发帖心情 Post By：2020/7/31 9:18:00 [只看该作者]

以下是引用有点蓝在2020/7/30 12:15:00的发言：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:单选批量输出8.table


非常感谢，但是去掉=号不行，最开始就是这么试过了，然后出现重复的现象，而且还少了最后一个选项的答案
我后来也改了，加上等号，但是诡异的是，最后一个选项竟然出现汉字“答案”，就是我之前上传的现象
麻烦大神指教，如果问题出现在“<=”号，那应该怎么修改呢，这个我是真不会

图片点击可在新窗口打开查看此主题相关图片如下：保存少一.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/31 9:52:00 [只看该作者]

……
Dim daaa As New prt.RenderArea
daaa.Stacking = prt.StackingRulesEnum.InlineLeftToRight
doc.Body.Children.Add(daaa)
daaa.Width = "Parent.Width"
For i As Integer = qs-1 To js-1 Step 5
    Dim rw As Row = tbl.Rows(i)
    Dim h As Integer
    Dim s As String = rw("答案")
    For j As Integer = 1 To 4
        If i+j <= js-1
            rw  = tbl.Rows(i+j)
            s = s & rw("答案")
            s = s.ToUpper
        End If

    Next
    h = i
    Output.Show(h)
    Dim xhda As New prt.RenderText '定义一个文本对象
    Dim da As New prt.RenderArea '定义一个容器
    da.Width = 45 '宽度53毫米
    'da.Height = 24 '高度24毫米
    da.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
    da.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
    daaa.ChildRen.Add(da) '将容器加入到报表中
    '加入标题
    xhda.text = h+1 & "-" & math.min(h+5,js) & ":" &  s
    xhda.Style.FontSize = 16 '大体大小为16磅
    da.Children.Add(xhda) '加入到容器中
Next
Doc.Preview() '预览报表
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05322 秒, 6 次数据查询