- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 【求助】专业报表--关于排序问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152646)
-- 发布时间：2020/7/17 10:40:00
-- 【求助】专业报表--关于排序问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:单选答案输出（求助）.table |
专业报表输出
关于题目和其他的输出都做好了
但是，关于答案的输出，卡住啦，这两天怎么也想不出来
本来想做成的是类似于
1--5 AABBC 6-10 CCDDB
11-15 AACCD 16-20 DBCAD
选择出来题目答案可以自己按顺序排列，可是自己做出来的都是斜着的，试了好多种方法都排不到一行
然后想那种序号，自然也不知道怎么添加啦，
求大神指点应该怎么修改，两种思路的程序都放上边啦
非常感谢
此主题相关图片如下：专业报表1.png
此主题相关图片如下：专业报表2.png
-- 发布时间：2020/7/17 11:07:00
--
能看到有专业报表代码，在哪
-- 发布时间：2020/7/17 11:46:00
--
以下是引用有点蓝在2020/7/17 11:07:00的发言：
能看到有专业报表代码，在哪
能看到有专业报表代码，在哪
代码就在上传的文档里啊
Dim doc As New PrintDoc \'定义一个报表
Dim tbl As Table = Tables("DXJ")
For i As Integer = tbl.TopRow To tbl.BottomRow
Dim rw As Row = tbl.Rows(i)
Dim xhda As New prt.RenderText \'定义一个文本对象
Dim da As New prt.RenderArea \'定义一个容器
da.SplitVertBehavior = prt.SplitBehaviorEnum.Never \'禁止容器因为分页而被垂直分割
\'加入标题
xhda.text = rw("答案")
xhda.Style.FontBold = True \'字体加粗
xhda.Style.FontSize = 16 \'大体大小为16磅
xhda.x = i *10
xhda.Y = " Prev.Right + 5 "
xhda.Style.Spacing.Bottom = 3 \'和下面的对象(表格)距离3毫米
da.Children.Add(xhda) \'加入到容器中
Doc.Body.ChildRen.Add(da) \'将容器加入到报表中
Next
Doc.Preview() \'预览报表
-- 发布时间：2020/7/17 12:17:00
--
上传的文档肯定没有
Dim doc As New PrintDoc \'定义一个报表
Dim tbl As Table = Tables("DXJ")
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight \'设置排列方式
For i As Integer = tbl.TopRow To tbl.BottomRow Step 5
Dim rw As Row = tbl.Rows(i)
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("答案")
End If
Next
Output.Show(i)
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 \'禁止垂直分割
Doc.Body.ChildRen.Add(da) \'将容器加入到报表中
\'加入标题
xhda.text = i+1 & "-" & i+5 & ":" & s
xhda.Style.FontBold = True \'字体加粗
xhda.Style.FontSize = 16 \'大体大小为16磅
da.Children.Add(xhda) \'加入到容器中
Next
Doc.Preview() \'预览报表