主题：如何给文字下面双划线?

 文字无法设置双划线。

 请具体说明你在哪里使用？变通处理。

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim ra As prt.RenderArea
doc.Body.Children.Add(rt) '将表格对象加入到报表中
ra = rt.Cells(1,1).Area '引用第一个单元格的容器.
rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
rt.Width = 90 '表宽为90毫米
rt.Height = 90 '表高为90毫米
rt.Rows.Count = 3 '设置行数
rt.Cols.Count = 3 '设置列数

'加入第一个文本
Dim rx As New prt.RenderText
rx.Text = "产品123456789"
rx.X = "0"
rx.y = "10"
ra.Children.Add(rx)

'加入线条
Dim ln As New prt.RenderLine(0,15,25,15，new prt.Linedef)
ra.Children.Add(ln)
ln = New prt.RenderLine(0,16,25,16，new prt.Linedef)
ra.Children.Add(ln)

Doc.Preview() '预览报表