[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rx As New prt.RenderText '定义一个文本对象
Dim CurRow As Row = Tables("出差记录").Current
'加入标题
rx.text = "青铜峡市铝业学校出差通知单"
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 16 '大体大小为16磅
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rx.Style.Spacing.Bottom = 3 '和下面的对象(表格)距离3毫米
doc.Body.Children.Add(rx) '加入到报表中
'指定行数?列数?列宽?行高
rt.Rows.Count = 7 '设置总行数
rt.Cols.Count = 16 '设置总列数
rt.Height = 70 '设置表格的高度为80毫米
rt.Cols(0).Width = 10 '设置列的宽度,剩余的宽度被分配最后列
rt.Cols(1).Width = 10
rt.Cols(2).Width = 10
rt.Cols(3).Width = 10
rt.Cols(4).Width = 10
rt.Cols(5).Width = 10
rt.Cols(6).Width = 10
rt.Cols(7).Width = 10
rt.Cols(8).Width = 10
rt.Cols(9).Width = 10
rt.Cols(10).Width = 10
rt.Cols(11).Width = 10
rt.Cols(12).Width = 10
rt.Cols(13).Width = 10
rt.Cols(14).Width = 10
rt.Cols(15).Width = 10

'设置合并单元格
rt.Cells(0,0).SpanCols =2 '第1行第1个单元格向右合并2列
rt.Cells(0,2).SpanCols =2
rt.Cells(0,4).SpanCols =2
rt.Cells(0,6).SpanCols = 2
rt.Cells(0,8).SpanCols =2
rt.Cells(0,10).SpanCols =6

rt.Cells(1,0).SpanCols = 2 '第二行
rt.Cells(1,2).SpanCols =14
rt.Cells(2,0).SpanCols = 2 '第三行
rt.Cells(2,2).SpanCols = 8
rt.Cells(2,10).SpanCols = 2
rt.Cells(2,12).SpanCols =6

rt.Cells(3,0).SpanCols =2 '第四行
rt.Cells(3,2).SpanCols =14

rt.Cells(4,0).SpanCols =2 '第五行
rt.Cells(4,2).SpanCols =14

rt.Cells(5,0).SpanCols =2     '第六行
rt.Cells(5,2).SpanCols =2
rt.Cells(5,4).SpanCols =2
rt.Cells(5,6).SpanCols =2
rt.Cells(5,8).SpanCols =2
rt.Cells(5,10).SpanCols =2
rt.Cells(5,12).SpanCols =2
rt.Cells(5,14).SpanCols =2

rt.Cells(6,0).SpanCols =2     '第七行
rt.Cells(6,2).SpanCols =3
rt.Cells(6,5).SpanCols =2
rt.Cells(6,7).SpanCols =3
rt.Cells(6,10).SpanCols =2
rt.Cells(6,12).SpanCols =4

'设置表格样式
rt.CellStyle.Spacing.All = 1 '单元格内容缩进1毫米
rt.Style.GridLines.All = New prt.Linedef '设置网格线
rt.Style.TextAlignVert = prt.AlignVertEnum.Center '内容垂直居中
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中

'下面很简单,指定每一个单元格的内容
rt.Cells(0,0).Text= "编号"
rt.Cells(0,2).Text = CurRow("编号")
rt.Cells(0,4).Text= "类别"
rt.Cells(0,6).Text = CurRow("类别")
rt.Cells(0,8).Text= "时限"
rt.Cells(0,10).Text = CurRow("时限")

rt.Cells(1,0).Text= "出差人" '第二行
rt.Cells(1,2).Text = CurRow("出差人")

rt.Cells(2,0).Text= "地点" '第三行
rt.Cells(2,2).Text = CurRow("地点")
rt.Cells(2,10).Text= "通知时间"
rt.Cells(2,12).Text = CurRow ("通知时间")

rt.Cells(3,0).Text= "依据" '第四行
rt.Cells(3,2).Text = CurRow("依据")

rt.Cells(4,0).Text= "要求" '第五行
rt.Cells(4,2).Text = CurRow("要求")

rt.Cells(5,0).Text= "天数" '第六行
rt.Cells(5,2).Text = CurRow("天数")
rt.Cells(5,4).Text= "交通费"
rt.Cells(5,6).Text = CurRow("交通费")
rt.Cells(5,8).Text= "伙食费"
rt.Cells(5,10).Text = CurRow("伙食费")
rt.Cells(5,12).Text= "住宿费"
rt.Cells(5,14).Text = CurRow("住宿费")

rt.Cells(6,0).Text= "负责人" '第七行
rt.Cells(6,5).Text ="主管领导"
rt.Cells(6,10).Text ="校长审批"
doc.Body.Children.Add(rt) '将表格对象加入到报表中

doc.Preview() '预览

主题：[求助]