主题：[求助]关于多表合并统计的代码问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:1.table

袍哥，您看下这个附件呢，合计统计 和 打印 确是少了 表达式列  我的列名为 全年收入  全年支出

1、代码

Dim doc As New  PrintDoc  '定义一个新报表
Dim rt As  New  prt.RenderTable '定义一个新表格
Dim tb As  Table = Tables("日记账_Table1")
Dim hd As  Integer = tb.HeaderRows '获得表头的层数
Dim cnt As Integer  '用于记录列位置
rt.Width = "Auto"  '表格宽度为自动,也就是等于各列设置宽度之和
rt.Style.Font = tb.Font
 tb.CreateReportHeader(rt,True) '生成表头,排除隐藏列
For c As Integer = 0 To tb.Cols.Count -1 '逐列设置和填入内容
    If tb.Cols(c).Visible Then
         rt.Cols(cnt).Width = tb.Cols(c).PrintWidth  '列宽等于实际列宽
         If  tb.Cols(c).IsNumeric OrElse tb.Cols(c).IsDate Then '如果是数值或日期列
             rt.Cols(cnt).Style.TextAlignHorz = prt.AlignHorzEnum.Right '数据水平靠右
        End If       
         For  r As  Integer = 0 To tb.Rows.Count -1 '开始填入该列内容
             rt.Cells(r + hd,  cnt).Text = tb(r,c)
         Next
         cnt = cnt +  1
     End If
 Next
 rt.Style.Gridlines.All = New  prt.Linedef(Color.Gray) '灰色网格线
rt.CellStyle.Spacing.All = 0.5 '单元格内距设为0.5毫米
rt.RowGroups(0,  tb.HeaderRows).Header = prt.TableHeaderEnum.All '利用行组功能设置表头
doc.Body.Children.Add(rt) '将表格加入到报表
doc.Preview()

2、显示不出来，是你纸张的宽度不够，你可以弄成横向打印

http://www.foxtable.com/help/topics/1190.htm

谢谢 袍哥一天不耐其烦的解答我的问题 

我原来的代码定义的是Dim dt As DataTable = bd1.Build(True)

您这个代码定位的是Dim tb As Table = Tables("日记账_Table1") 

既简单 有实用 还不容易出错。

谢谢~~~袍哥~~~