| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 汇总行打印 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47533) |
|
| -- 作者：asionwong -- 发布时间：2014/3/12 9:16:00 -- 汇总行打印 Dim tb As Table = Tables("客户报表_table1") Dim hd As Integer = tb.HeaderRows Dim cnt As Integer 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 生成了报表，有小计和总计行，但打印的时候没有，如何做？请指教，谢谢！ |
|
| -- 作者：Bin -- 发布时间：2014/3/12 9:24:00 -- 上个例子看看. |
|
| -- 作者：asionwong -- 发布时间：2014/3/12 9:47:00 -- 数据统计-客户数据 窗口 |
|
| -- 作者：asionwong -- 发布时间：2014/3/12 9:48:00 -- 例子好像上不了
|
|
| -- 作者：Bin -- 发布时间：2014/3/12 9:50:00 --
|