Foxtable(狐表)用户栏目专家坐堂 → 请教专业报表汇总模式,合并单元格


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

主题:请教专业报表汇总模式,合并单元格

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


加好友 发短信
等级:小狐 帖子:393 积分:3181 威望:0 精华:0 注册:2019/4/13 16:10:00
请教专业报表汇总模式,合并单元格  发帖心情 Post By:2021/1/5 23:19:00 [只看该作者]

按客户名称汇总模式生成的专业报表,第一列客户名称需要单元格合并,帮助里面的合并单元格的代码应该如何整合进去? 研究了几天弄不出来,麻烦老师帮忙完善下代码,谢谢!


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210105231034.jpg
图片点击可在新窗口打开查看


Dim doc As New PrintDoc
Dim rt As New Prt.RenderTable
Dim rx As prt.RenderText
Dim cnt As Integer
Dim tbl As Table = Tables("订单明细")
Dim drs As List(Of DataRow)
Dim pds As List(Of String) = tbl.DataTable.GetValues("客户名称",tbl.Filter)

rt.Style.GridLines.All = New prt.LineDef(0.1,Color.LightGray)
rt.CellStyle.Spacing.All = 1
rt.Style.FontSize = 10.5 '字体大小为16磅
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt.Rows(0).Style.FontBold = True '字体加粗
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt.Rows(0).Style.TextAlignVert = prt.AlignVertEnum.Center '内容垂直居中
rt.Rows(0).Style.FontSize = 11 '字体大小为16磅

For c As Integer = 0 To tbl.Cols.Count - 1 '生成列标题
    rt.Cells(0,c).Text = tbl.Cols(c).Name    
    rt.Rows(0).Height=7
    rt.Cols(0).Width = 50
    rt.Cols(1).Width = 50
    rt.Cols(2).Width = 30
    rt.Cols(3).Width = 30
    rt.Cols(4).Width = 30    
Next

For Each pd As String In pds '分产品打印
    If tbl.Filter > "" Then
        drs = tbl.DataTable.Select("客户名称 = '" & pd & "' And " & tbl.Filter)
    Else
        drs = tbl.DataTable.Select("客户名称 = '" & pd & "'" )
    End If

    For Each dr As DataRow In drs '逐行打印此产品的订单
        cnt = rt.Rows.Count
        For c As Integer = 0 To tbl.Cols.Count - 1
            rt.Cells(cnt, c).Text = dr(tbl.Cols(c).Name)
        Next
    Next

    cnt = rt.Rows.Count
    rt.Cells(cnt, 0).Text = pd & "合计 "  '打印产品的小计
    rt.Cells(cnt, 0).style.TextAlignHorz = prt.AlignHorzEnum.right '水平居中排列
    rt.Cells(cnt, 0).Style.FontBold = True '字体加粗
    rt.Cells(cnt, 0).Style.FontSize = 10.5 '大体大小为16磅
    rt.Cells(cnt, 2).Style.FontBold = True '字体加粗
    rt.Cells(cnt, 2).Style.FontSize = 10.5 '大体大小为16磅
    rt.Cells(cnt, 3).Style.FontBold = True '字体加粗
    rt.Cells(cnt, 3).Style.FontSize = 10.5 '大体大小为16磅
    rt.Cells(cnt,0).SpanCols = 2 '第5行第2个单元格向右合并3列(用于显示地址)
    rt.Cells(cnt,2).Text = tbl.compute("Sum(数量)", "客户名称 = '" & pd & "'") & "件"
    rt.Cells(cnt,3).Text = tbl.compute("Sum(欠款)", "客户名称 = '" & pd & "'") & "元"
Next

doc.Body.Children.Add(rt)
doc.preview()

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111373 积分:566929 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/6 8:38:00 [只看该作者]

For Each pd As String In pds '分产品打印
    If tbl.Filter > "" Then
        drs = tbl.DataTable.Select("客户名称 = '" & pd & "' And " & tbl.Filter)
    Else
        drs = tbl.DataTable.Select("客户名称 = '" & pd & "'" )
    End If
dim c1 as integer = rt.Rows.Count
    For Each dr As DataRow In drs '逐行打印此产品的订单
        cnt = rt.Rows.Count
        For c As Integer = 0 To tbl.Cols.Count - 1
            rt.Cells(cnt, c).Text = dr(tbl.Cols(c).Name)
        Next
    Next
rt.Cells(c1,0).SpanRows = drs.count
    cnt = rt.Rows.Count
    rt.Cells(cnt, 0).Text = pd & "合计 "  '打印产品的小计

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


加好友 发短信
等级:幼狐 帖子:177 积分:1718 威望:0 精华:0 注册:2017/3/26 10:20:00
  发帖心情 Post By:2021/1/12 23:00:00 [只看该作者]

专业报表的程序放哪里啊?是设计一个按钮吗?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111373 积分:566929 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/12 23:18:00 [只看该作者]

一般放到按钮事件里

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


加好友 发短信
等级:幼狐 帖子:141 积分:1267 威望:0 精华:0 注册:2015/11/5 13:33:00
  发帖心情 Post By:2022/8/23 10:10:00 [只看该作者]

如果产品名称也要合并单元格,要怎么写?谢谢!

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


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

For Each pd As String In pds '分产品打印
    If tbl.Filter > "" Then
        drs = tbl.DataTable.Select("客户名称 = '" & pd & "' And " & tbl.Filter)
    Else
        drs = tbl.DataTable.Select("客户名称 = '" & pd & "'" )
    End If
dim c1 as integer = rt.Rows.Count
dim c2 as integer = rt.Rows.Count
dim ci as integer = 0
    For i as integer = 0 to drs.count - 1 '逐行打印此产品的订单
dim dr a datarow = drs (i)
        cnt = rt.Rows.Count
        For c As Integer = 0 To tbl.Cols.Count - 1
if i > 0 andalso c = 1 then
if drs (i-1)(tbl.Cols(c).Name) <> dr(tbl.Cols(c).Name) then
dim rr as integer = i - ci
rt.Cells(c2,1).SpanRows = rr
c2 = c2 + rr
ci = i
end if
end if
            rt.Cells(cnt, c).Text = dr(tbl.Cols(c).Name)
        Next
    Next
rt.Cells(c1,0).SpanRows = drs.count
    cnt = rt.Rows.Count
    rt.Cells(cnt, 0).Text = pd & "合计 "  '打印产品的小计

 回到顶部