左栏'); } else{ document.write('关闭左栏'); } }catch(e){alert(e);}
Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【求助】专业报表--关于排序问题


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

主题：【求助】专业报表--关于排序问题
帅哥哟，离线，有人找我吗？
18801459487
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：519 威望：0 精华：0 注册：2020/6/14 8:45:00 		【求助】专业报表--关于排序问题  发帖心情 Post By：2020/7/17 10:40:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:单选答案输出（求助）.table


专业报表输出
关于题目和其他的输出都做好了
但是，关于答案的输出，卡住啦，这两天怎么也想不出来
本来想做成的是类似于
1--5    AABBC    6-10    CCDDB  
11-15  AACCD    16-20  DBCAD
选择出来题目答案可以自己按顺序排列，可是自己做出来的都是斜着的，试了好多种方法都排不到一行
然后想那种序号，自然也不知道怎么添加啦，
求大神指点应该怎么修改，两种思路的程序都放上边啦
非常感谢





图片点击可在新窗口打开查看此主题相关图片如下：专业报表1.png
图片点击可在新窗口打开查看




图片点击可在新窗口打开查看此主题相关图片如下：专业报表2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

能看到有专业报表代码，在哪

 回到顶部
帅哥哟，离线，有人找我吗？
18801459487
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：519 威望：0 精华：0 注册：2020/6/14 8:45:00 		  发帖心情 Post By：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() '预览报表
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111414 积分：567140 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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() '预览报表
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询