| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 专业报表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127541) |
| -- 作者：gslxgl -- 发布时间：2018/11/16 11:18:00 -- 专业报表 Dim doc As New PrintDoc \'定义一个新报表 doc.PageSetting.Landscape = True Dim rt As New prt.RenderTable() \'定义一个表格对象 doc.Body.Children.Add(rt) \'将表格对象加入到报表中 rt.Style.GridLines.All = New prt.Linedef \'设置网格线 rt.CellStyle.Spacing.All = 1 \'内容距离网格线1毫米 \'设置主标题 rt.Cells(0,0).text = "水土保持措施分年度完成统计表" rt.Cells(0,0).SpanCols = 16 \'合并第一行全部单元格,用于显示主标题 rt.Cells(0,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'主标题居中 rt.Cells(0,0).Style.Font = New Font("宋体", 16, FontStyle.Bold) \'设置主标题字体 rt.Rows(0).Style.Borders.All = New prt.LineDef("0mm", Color.white) \'去掉第一行的网格线 \'设置副标题 rt.Cells(1,0).text = " "打印时间:"&date.today()" rt.Cells(1,0).SpanCols = 16 \'合并地二行全部单元格,用于显示副标题 rt.Cells(1,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'副标题内容居中 rt.Rows(1).Style.Borders.All = New prt.LineDef("0mm", Color.white) \'去掉第二行的网格线 rt.Rows(1).Style.Borders.Bottom = New prt.Linedef \'恢复第二行底端的网格线 rt.Rows(1).Height = 8 \'设置第二行的高度,拉开和表格主体的距离. \'设置列标题 rt.cells(2,0).Text = "项目名称" rt.cells(2,0).Spanrows = 2 \'合并第一行前三个单元格 rt.cells(2,1).Text = "年度" rt.cells(2,1).Spanrows = 2 \'合并第一行前三个单元格 rt.cells(2,2).SpanCols = 2 \'合并第一行前三个单元格 rt.cells(2,2).Text = "完成" \'设置第一行第一个单元格的内容 rt.Cells(3,3).Text= "亩" rt.Cells(3,2).Text = "平方公里" rt.Cells(2,4).Text = "坡改梯" rt.cells(2,4).Spanrows = 2 \'合并第一行前三个单元格 rt.Cells(2,5).Text = "水保林" rt.cells(2,5).Spanrows = 2 \'合并第一行前三个单元格 rt.Cells(2,6).Text = "经果林" rt.cells(2,6).Spanrows = 2 \'合并第一行前三个单元格 rt.Cells(2,7).Text = "种草" rt.cells(2,7).Spanrows = 2 \'合并第一行前三个单元格 rt.Cells(2,8).Text = "封禁" rt.cells(2,8).Spanrows = 2 \'合并第一行前三个单元格 rt.Cells(2,9).Text = "农耕" rt.cells(2,9).Spanrows = 2 \'合并第一行前三个单元格 rt.Cells(2,10).Text = "地埂经济" rt.cells(2,10).Spanrows = 2 \'合并第一行前三个单元格 rt.Cells(2,11).Text = "行道树" rt.cells(2,11).Spanrows = 2 \'合并第一行前三个单元格 rt.Cells(2,12).Text = "谷坊" rt.cells(2,12).Spanrows = 2 \'合并第一行前三个单元格 rt.Cells(2,13).Text = "水窖" rt.cells(2,13).Spanrows = 2 \'合并第一行前三个单元格 rt.Cells(2,14).Text = "道路" rt.cells(2,14).Spanrows = 2 \'合并第一行前三个单元格 rt.Cells(2,15).Text = "排水渠" rt.cells(2,15).Spanrows = 2 \'合并第一行前三个单元格 rt.RowGroups(2,2).Style.BackColor = Color.LightGray \'第三第四行的颜色设为灰色 rt.RowGroups(2,2).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'第三第四行的文本水平居中 rt.RowGroups(2,2).Style.TextAlignVert = prt.AlignVertEnum.Center \'第三第四行的文本垂直居中 rt.RowGroups(0,5).Header = prt.TableHeaderEnum.All \'前四行作为表头 Dim ColNames As String() = New String(){"农户姓名","家庭住址", "身份证号", "银行帐号","金额"} For c As Integer = 0 To ColNames.Length - 1 \'逐列设置和填入内容 Next doc.Preview() 根据以上代码，表头设计 出来了，但单元格没有数据，是那里错了
|
| -- 作者：有点甜 -- 发布时间：2018/11/16 11:48:00 -- Dim doc As New PrintDoc \'定义一个新报表
doc.Preview() |
| -- 作者：gslxgl -- 发布时间：2018/11/16 15:41:00 -- 非常感谢，上述代码，如果增加合计行，怎么加代码？谢谢 |
| -- 作者：有点甜 -- 发布时间：2018/11/16 16:25:00 -- 比如
Dim doc As New PrintDoc \'定义一个新报表
doc.Preview() |