- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 【求助】关于循环的最后一个数字 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152904)
-- 发布时间：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
-- 发布时间：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
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2020/7/30 11:05:00
--
以下是引用有点蓝在2020/7/29 15:29:00的发言：
亲，其他都还好，感谢帮助。可还是有bug 啊，感觉没道理啊，就是改不过来啦，默认的是打印全部，可是为啥最后一个答案选项，总是出来汉字答案呢
我把程序上传了，批量输出窗口，代码都在 打印预览3按钮里啦，代码拉到最后，是关于答案排序的
感谢大神指点，非常感谢
此主题相关图片如下：11.png
此主题相关图片如下：22.png
-- 发布时间：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
-- 发布时间：2020/7/31 9:18:00
--
以下是引用有点蓝在2020/7/30 12:15:00的发言：
非常感谢，但是去掉=号不行，最开始就是这么试过了，然后出现重复的现象，而且还少了最后一个选项的答案
我后来也改了，加上等号，但是诡异的是，最后一个选项竟然出现汉字“答案”，就是我之前上传的现象
麻烦大神指教，如果问题出现在“<=”号，那应该怎么修改呢，这个我是真不会
此主题相关图片如下：保存少一.png
-- 发布时间：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() \'预览报表