请教甜老师，加一个标题，另起一行加一个日期，加日期这个代码，应该怎么写？ - 专家坐堂 - 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 = 5 '和下面的对象(表格)距离3毫米
doc.Body.Children.Add(rx) '加入到报表中
rx = new prt.RenderText
rx.text = "日期:" '& currow("日期")
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 12 '大体大小为16磅
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rx.Style.Spacing.Bottom = 3 '和下面的对象(表格)距离3毫米
doc.Body.Children.Add(rx) '加入到报表中
doc.Preview

主题：请教甜老师，加一个标题，另起一行加一个日期，加日期这个代码，应该怎么写？