主题：专业报表

设计一个文档管理文件，想当前行的内容，怎么打不出来呀，帮我看一下有什么问题

Dim doc As New PrintDoc '定义一个新报表
Dim rb As prt.RenderArea
Dim rt As New prt.RenderText
Dim rt1 As New prt.RenderText
Dim rt2 As New prt.RenderText
'Dim tb As Row = Tables("工作文档")
rt.text=Tables("工作文档").current("文档名称")
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt.Style.Font = New Font("宋体", 16, FontStyle.Bold)
rb.Children.Add(rt)
rt1.text=Tables("工作文档").current("文档内容")
rt1.Style.Font = New Font("宋体", 14)
rt1.Style.TextIndent = 12
rb.Children.Add(rt1)
rt2.text=Tables("工作文档").current("日期")
rt2.Style.Font = New Font("宋体", 14)
rt2.Style.TextAlignHorz = prt.AlignHorzEnum.Right
rb.Children.Add(rt2)
doc.Body.Children.Add(rb) '将表格加入到报表
doc.Preview()