Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表的统计问题


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

主题：专业报表的统计问题
帅哥哟，离线，有人找我吗？
lin98
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1144 积分：7556 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/11 15:58:00 [只看该作者]

11
[此贴子已经被作者于2023/10/20 9:55:01编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107756 积分：548119 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/8/11 16:01:00 [只看该作者]

根本没有回答我的问题。那么我的理解就是主表的每一个单号都是另起一页开始打印的。我们按这个做，如果不是，后面的问题请自行解决

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


加好友 发短信
等级：五尾狐 帖子：1144 积分：7556 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/11 16:15:00 [只看该作者]

主表的每一个单号都是另起一页开始打印的，是的

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


加好友 发短信
等级：超级版主 帖子：107756 积分：548119 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/8/11 16:41:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:专业报表 - 连接打印问题 - 副本.zip
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1144 积分：7556 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/11 17:07:00 [只看该作者]

刚试，报错
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,打印窗口,Button7,Click
详细错误信息：
添加的项目已经有所有者了。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

删除项目里的bin目录，重启项目测试

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


加好友 发短信
等级：五尾狐 帖子：1144 积分：7556 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/11 19:47:00 [只看该作者]

For Each pr As Row In tbl.Rows

   1、增加下面代码，连续打印，执行后，最后终会有一张空，这样会造成浪费纸，如何解决？
    doc.PageSetting.Width = 241 '
    doc.PageSetting.Height = 155 '
    doc.AutoRotate = False '
    doc.PageSetting.TopMargin = 5
    doc.PageSetting.BottomMargin = 5
    doc.PageSetting.LeftMargin = 5
    doc.PageSetting.RightMargin = 5

2、把下面代码改为红色代码，出库单号，不管理明细的内容是单页，还是多页都会加“-1”，不是，需求，只有明细的内容是多页才加“-1”、“-2”、单页不用加
    'Rows = tb.DataTable.select("客户='" & pr("公司名称") & "'")
改为
    Rows = tb.DataTable.select("出库单号='" & pr("出库单号") & "'")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107756 积分：548119 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/8/12 8:43:00 [只看该作者]

1、
        rx.BreakAfter = prt.BreakEnum.Page '否则换页
改为
        If pr.Index < tbl.Rows.Count - 1 Then 
            rx.BreakAfter = prt.BreakEnum.Page '否则换页
        end if

2、判断一下明细查询的行数，如果小于等于20行，就不要“-1”
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1144 积分：7556 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/12 11:17:00 [只看该作者]

 Dim rg As prt.RenderGraphics
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    bar.Code = pr("出库单号")
    rg = New prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics, 0, 0, 1)
  
 Dim rz As prt.RenderTable
 rz = New prt.RenderTable 

'    rz.Cells(0, 5).RenderObject = rg 
''    rz.Cells(0, 5).SpanCols = 2 
'    rz.Cells(0, 5).Style.TextAlignHorz = prt.AlignHorzEnum.Right 
    Doc.Body.Children.Add(rg)

需求：以主表的出库单号做一个二维码，放在右边角，如何实现？
执行上面代码时，没红字代码，二维码是在左边，
有红字代码，报错，提示：添加的项目已经有所有者了。删除BIN也没有用
 回到顶部
帅哥，在线噢！
有点蓝
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107756 积分：548119 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/8/12 11:22:00 [只看该作者]

不需要红色代码。指定位置：http://www.foxtable.com/webhelp/topics/1177.htm

 回到顶部
总数 39 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询