'下面很简单,指定每一个单元格的内容
rt1.Cells(0,0).Text= "家庭人员信息表"
rt1.Cells(0,0).Style.FontBold = True '字体加粗
rt1.Cells(0,0).Style.FontSize = 16 '大体大小为16磅
rt1.Cells(0,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(0,0).Style.Spacing.Bottom = 3 '和下面的对象(表格)距离3毫米
rt1.Cells(1,0).Text= "关系"
rt1.Cells(1,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(1,1).Text= "姓名"
rt1.Cells(1,1).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(1,2).Text= "年龄"
rt1.Cells(1,2).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(1,3).Text= "政治面貌"
rt1.Cells(1,3).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(1,4).Text= "联系方式"
rt1.Cells(1,4).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(1,5).Text= "工作单位"
rt1.Cells(1,5).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
With Tables("person.family")
For r As Integer = 0 To .Rows.Count - 1 '遍历关联表每一行
rt1.Cells(r+2,0).Text = .rows(r)("guanXi")
rt1.Cells(r+2,1).Text = .rows(r)("name")
rt1.Cells(r+2,2).Text = .rows(r)("age")
rt1.Cells(r+2,3).Text = .rows(r)("political")
rt1.Cells(r+2,4).Text = .rows(r)("tel")
rt1.Cells(r+2,5).Text = .rows(r)("job")
Next
End With
ra1.Children.Add(rt1)
doc.Body.Children.Add(ra1)
Doc.Preview() '预览报表
如果选务,那个红色部分就不能那么写了,该如何写?