Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表 根据图片信息表中的ID查找文件附件中ID下的所有图片，为什么不能全部显示出来呢？


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

主题：专业报表 根据图片信息表中的ID查找文件附件中ID下的所有图片，为什么不能全部显示出来呢？
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109503 积分：557183 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/7 9:58:00 [显示全部帖子]

        rm.Style.ImageAlign.StretchVert = True '禁止图片水平拉伸
        rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.center '居中显示
        rm.Style.ImageAlign.AlignVert = prt.ImageAlignHorzEnum.center '居中显示
            doc.Body.Children.Add(rm) '将图片对象加入报表
        'ra.Children.Add(rm) '加入到容器中
    Next

        rt00.x=25
    rt00.y=120
    rt00.Width = 140 '表宽为150毫米
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109503 积分：557183 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/7 10:35:00 [显示全部帖子]

For Each dr As DataRow In drs
rm = New prt.RenderImage
        output.Show("1")
        ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never  '禁止容器因为分页而被垂直分割
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109503 积分：557183 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/7 14:13:00 [显示全部帖子]

图片使用的是同一个位置，都重叠到一起了

    Dim drs As List(Of DataRow)
    drs = DataTables("文件附件").Select("文件编号= '" & rw("ID") & "'")
Dim idx As Integer = 0
    For Each dr As DataRow In drs
rm = New prt.RenderImage
        msgbox("1")
        ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never  '禁止容器因为分页而被垂直分割
        rm.Image = dr.SQlLoadImage("附件")
        rm.y = 50 + idx * 90 '指定垂直位置
idx  += 1
        rm.x = 25 '指定垂直位置
        rm.Width = 160
        rm.Height = 90
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109503 积分：557183 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/7 15:29:00 [显示全部帖子]

去掉xy的设置，增加Spacing.Bottom设置，类似：http://www.foxtable.com/webhelp/topics/1182.htm

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109503 积分：557183 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/7 16:11:00 [显示全部帖子]

rm.BreakBefore = prt.BreakEnum.Page去掉

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109503 积分：557183 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/7 17:14:00 [显示全部帖子]

指定一下位置

rt00 =New prt.RenderTable '定义一个表格对象    
rt00.y = 10
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询