Foxtable(狐表)用户栏目专家坐堂 → 专业报表三层分组,求助


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

主题:专业报表三层分组,求助

帅哥哟,离线,有人找我吗?
yifan3429
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/4/25 12:22:00 [只看该作者]

 ---------------------------
错误
---------------------------
编译错误:“Style”不是“C1.C1Preview.Style”的成员。



错误代码:rt.Cells(rt.Rows.Count - 1, 0).Style.Style.TextAlignHorz = prt.AlignHorzEnum.left
---------------------------
确定   
---------------------------

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20220425122210.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2022/4/25 12:41:00 [只看该作者]

rt.Cells(rt.Rows.Count - 1, 0).Style.Style.TextAlignHorz = prt.AlignHorzEnum.left

改为:

rt.Cells(rt.Rows.Count - 1, 0).Style.TextAlignHorz = prt.AlignHorzEnum.left

一不小心留了个小坑坑,您就一点不动脑筋吗?图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/4/25 12:54:00 [只看该作者]

 不敢动,牵一发动全身图片点击可在新窗口打开查看

---------------------------
错误
---------------------------
编译错误:“c”是一个类型,不能用作表达式。



错误代码:rt.Cells(rt.Rows.Count - 1, c).Text = r1(ColNames(c))
---------------------------
确定   
---------------------------

[此贴子已经被作者于2022/4/25 12:55:56编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2022/4/25 13:02:00 [只看该作者]

到目前,不知道您的明细表名称、更不知道明细表有哪些列,用"酒店名称"代替的,您自己不知道调过来吗?各表的表结构截图发上来,我没安装商业版!
[此贴子已经被作者于2022/4/25 13:02:13编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/4/25 13:57:00 [只看该作者]

 实例 开发版的
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:专业报表多级分组导出.foxdb



 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2022/4/25 14:27:00 [只看该作者]

字段都不对,没法搞,自己先将表搞统一了再说!

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/4/25 14:38:00 [只看该作者]

老师  字段调整好了   劳烦您指导

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20220425165748.png
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:专业报表多级分组导出.foxdb

[此贴子已经被作者于2022/4/25 16:59:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/4/25 17:24:00 [只看该作者]

 老师在吗图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/25 20:38:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:专业报表多级分组导出.zip


 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/4/25 22:56:00 [只看该作者]

辛苦老师了  终于实现了目标  还有个小功能需要实现  麻烦老师


Dim tbl As Table = Tables("订单_产品主表")
Dim Rows As List(Of DataRow)
Dim Regions As List(Of String) = tbl.DataTable.GetValues("区域名称")
doc.Pagesetting.LandScape = True
Dim ColNames As String() = New String() {"区域名称", "产品名称", "工艺描述", "销售单价", "计价单位", "数量", "金额小计", "备注" }
For Each Region As String In Regions
    rx = New prt.RenderText
    rx.Style.Font = New Font("宋体", 12) '设置字体
    rx.Style.Spacing.Bottom = 1
    rx.Text = "区域: " & Region
    doc.Body.Children.Add(rx)
    For Each dr2 As DataRow In tbl.DataTable.Select("区域名称='" & Region & "'")
        rt = New prt.RenderTable
        rt.Style.Font = tbl.Font
        rt.Style.TextAlignVert = prt.AlignVertEnum.Center
        rt.Style.GridLines.All = New prt.LineDef(0.3, Color.DeepSkyBlue)
        rt.Style.Spacing.Bottom = 2
        rt.CellStyle.Spacing.All = 1
        
        
        For c As Integer = 0 To ColNames.Length - 1 '逐列设置和填入内容
            rt.Cells(0, c).Text = ColNames(c) '列名作为标题
            rt.Cells(0, c).Style.TextAlignHorz = prt.AlignHorzEnum.Center '标题内容水平居中
            If ColNames(c) <> "备注" Then '
                rt.Cols(c).Width = tbl.Cols(ColNames(c)).PrintWidth
            End If
            rt.Cells(1, c).Text = dr2(ColNames(c))
            rt.Cells(1, c).Style.BackColor = Color.DarkGray '产品表头颜色
            rt.Cells(1, c).Style.Font = New Font("宋体", 11) '设置字体
        Next
        
        Dim cnt As Integer  '流水号
        Rows = DataTables("订单_产品清单").sqlSelect("[产品订购ID] = '" & dr2("产品订购ID") & "'")
        For r As Integer = 0 To Rows.Count - 1 '开始填入该列内容
            cnt = cnt + 1
            rt.Cells(r + 2, 0).Text =  cnt

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20220425225321.png
图片点击可在新窗口打开查看

            For c As Integer = 1 To ColNames.Length - 1
                rt.Cells(r + 2, c).Text = Rows(r)(ColNames(c))
                rt.Cells(r + 2, c).Style.Font = New Font("宋体", 9) '设置字体
            Next
        Next
        rt.Style.GridLines.All = New prt.Linedef '设置网格线
        rt.Cols(0).Width = 15 '设置前四列的宽度,剩余的宽度被分配给5列(显示图片的那列)
        rt.Cols(1).Width = 35
        rt.Cols(2).Width = 30
        rt.Cols(3).Width = 50
        rt.Cols(4).Width = 20
        rt.Cols(5).Width = 20
        rt.Cols(6).Width = 10
        rt.Cols(7).Width = 30
        rt.CellStyle.Spacing.All = 0.3 '内容距离网格线0.5毫米
        rt.Style.Font = New Font("宋体", 11) '设置字体
        rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中
        rt.Style.TextAlignVert = prt.AlignVertEnum.Center '第一行内容垂直居中
        rt.Rows(0).Style.BackColor = Color.DimGray '第一行背景颜色设为灰色.
        rt.RowGroups(0, 1).Header = prt.TableHeaderEnum.All '将第一行作为表头..
        doc.Body.Children.Add(rt) '将表格加入到报表
    Next
    
Next


 回到顶部
总数 31 上一页 1 2 3 4 下一页