Dim ra As new prt.RenderArea
Dim rt1 As New prt.RenderTable() '定义一个表格对象
Dim rx1 As New prt.RenderText '定义一个文本对象
'加入标题
rx1.text = "家庭人员信息表"
rx1.Style.FontBold = True '字体加粗
rx1.Style.FontSize = 16 '大体大小为16磅
rx1.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt1.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt1.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rx1.Style.Spacing.Bottom = 3 '和下面的对象(表格)距离3毫米
'指定行数?列数?列宽?行高
rt1.Rows.Count = 6 '设置总行数
rt1.Cols.Count = 6 '设置总列数
rt1.Height = 60 '设置表格的高度为80毫米
rt1.Cols(0).Width = 20 '设置前四列的宽度,
rt1.Cols(1).Width = 20 '设置前四列的宽度,
rt1.Cols(2).Width = 18 '设置前四列的宽度,
rt1.Cols(3).Width = 22 '设置前四列的宽度,
rt1.Cols(4).Width = 25
'设置表格样式
rt1.CellStyle.Spacing.All = 1 '单元格内容缩进1毫米
rt1.Style.GridLines.All = New prt.Linedef '设置网格线
rt1.Style.TextAlignVert = prt.AlignVertEnum.Center '内容垂直居中
rt1.Rows(6).Style.TextAlignVert = prt.AlignVertEnum.Top '唯独第7行是备注,内容靠上对齐
'下面很简单,指定每一个单元格的内容
rt1.Cells(0,0).Text= "关系"
rt1.Cells(0,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(0,1).Text= "姓名"
rt1.Cells(0,1).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(0,2).Text= "年龄"
rt1.Cells(0,2).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(0,3).Text= "政治面貌"
rt1.Cells(0,3).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(0,4).Text= "联系方式"
rt1.Cells(0,4).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(0,5).Text= "工作单位"
rt1.Cells(0,5).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
//这里是表格绑定的代码
'Dim CurRow1 As Row = Tables("person.family").Current
Dim tb As Table = Tables("family")
Dim ColNames As String() = New String(){"guanXi", "name","age", "political", "tel","job"}
For c As Integer = 0 To ColNames.Length -1
rt1.Cells(0,c).Text = ColNames(c)
rt1.Cols(c).Width = tb.Cols(ColNames(c)).PrintWidth
rt1.Cells(1, c).Text = "[Fields!" & ColNames(c) & ".Value]" '设置绑定表达式
Next
ra.Children.Add(rx1)
ra.Children.Add(rt1)
doc.Body.Children.Add(rt) '将表格对象加入到报表中
doc.Body.Children.Add(ra)
老师:
1、数据库里,人员信息是一个表,家庭信息是一个表,之间用户主身份证建立关联,
2、报表家庭信息因此写入的应该是本人的家庭信息,
我绑定但是出错了,请老师指导一下