没有坐标的情况下，　怎么加画线语句 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tb As Table = Tables(args(5))

Dim prs As Integer =30

Dim ir As Integer = Math.Ceiling(tb.Rows.Count / prs)

Dim a As Integer = 1

For i As Integer = 0 To ir - 1

Dim rt As New prt.RenderTable() '定义一个表格对象

Dim rx, rx1, rx2 As New prt.RenderText '定义一个文本对象

Dim ra As New prt.RenderArea '定义一个容器

If Tables("处方打印设置").Current("标题一") > "" Then

rx.text = Tables("处方打印设置").Current("标题一")

rx.Style.FontBold = True '字体加粗

rx.Style.FontSize = CStr(Tables("处方打印设置").Current("标题一字体大小"))

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列

rx.Style.Spacing.Bottom = 1 '和下面的对象(表格)距离3毫米

doc.Body.Children.Add(rx) '加入到报表中

End If

If Tables("处方打印设置").Current("标题二") > "" Then

rx1 = New prt.RenderText

rx1.text = Tables("处方打印设置").Current("标题二")

rx.Style.FontBold = True '字体加粗

rx1.Style.FontSize = CStr(Tables("处方打印设置").Current("标题二字体大小"))

rx1.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列

rx1.Style.Spacing.Bottom = 3 '和下面的对象(表格)距离3毫米

ra.Children.Add(rx1)

End If

rx2 = New prt.RenderText

rx2.text = "姓名：" & Args(0) & " 性别：" & Args(1) & " 年龄：" & args(2) & " 日期:" & format(Args(3), "yyyy年MM月dd日") & " 电话：" & Args(8)

rx.Style.FontBold = True '字体加粗

rx2.Style.FontSize = CStr(Tables("处方打印设置").Current("内容字体大小"))

rx2.Style.TextAlignHorz = prt.AlignHorzEnum.center '水平居中排列

rx2.Style.Spacing.Bottom = 1 '和下面的对象(表格)距离3毫米

ra.Children.Add(rx2)

rx = New prt.RenderText

rx.text = "--------------------------------------------------------------------------------------------------------------------------"

rx.Style.FontBold = True '字体加粗

rx.Style.FontSize = CStr(Tables("处方打印设置").Current("内容字体大小"))

rx.Style.TextAlignHorz = prt.AlignHorzEnum.center '水平居中排列

rx.Style.Spacing.Bottom = 1 '和下面的对象(表格)距离3毫米

ra.Children.Add(rx)

rt.Style.Font = New font("宋体", CStr(Tables("处方打印设置").Current("内容字体大小")))

我想把最后这个换成画线语句，不知道应该怎么写了

主题：没有坐标的情况下， 怎么加画线语句