以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  专业报表问题..关注老爹的自动合并新贴  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1471)

--  作者:菜鸟foxtable
--  发布时间:2008/12/21 22:43:00
--  专业报表问题..关注老爹的自动合并新贴

图片点击可在新窗口打开查看此主题相关图片如下:001.jpg
图片点击可在新窗口打开查看
箭头所指两个同类相同数据(数量金额不同),怎样才能将其合并成一行?
直接用报表编辑哦.

在表里执行统计操作生成统计表后再输出报表这个方法太麻烦了...


我的报表代码如下:


Dim doc As New PrintDoc

Dim rt As New prt.RenderTable
Dim tb as Table = Tables("清单")
rt.CanSplitHorz = True
rt.Style.Font = tb.Font
For c As Integer = 0 To tb.Cols.Count -1 
    rt.Cells(0,c).Text = tb.Cols(c).Name 
    rt.Cells(0,c).Style.TextAlignHorz = prt.AlignHorzEnum.Center 
    rt.Cols(c).Width = tb.Cols(c).PrintWidth  
    If tb.Cols(c).IsNumeric Orelse tb.Cols(c).IsDate Then 
        rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.Right 
    End If
    For r As integer = 0 To tb.Rows.Count -1 
        rt.Cells(r + 1, c).Text = tb(r,c)
    Next
Next
rt.CellStyle.Spacing.All = 1
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All
doc.Body.Children.Add(rt)


doc.Preview()

出来的效果不太好..

图片点击可在新窗口打开查看此主题相关图片如下:002.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2008-12-22 10:55:53编辑过]

--  作者:狐狸爸爸
--  发布时间:2008/12/22 9:51:00
--  

我做了一个,抛砖引玉:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7.table


--  作者:菜鸟foxtable
--  发布时间:2008/12/22 10:25:00
--  
图片点击可在新窗口打开查看谢了,老爹闭关几天了.