Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:专业报表问题..关注老爹的自动合并新贴

1楼
菜鸟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编辑过]
2楼
狐狸爸爸 发表于:2008/12/22 9:51:00

我做了一个,抛砖引玉:

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

3楼
菜鸟foxtable 发表于:2008/12/22 10:25:00
图片点击可在新窗口打开查看谢了,老爹闭关几天了.
共3 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 3 queries.