怎样给文字加下划线？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样给文字加下划线？

共有13064人关注过本帖树形打印复制链接主题：怎样给文字加下划线？

客家阿哥

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：5954 威望：0 精华：0 注册：2012/10/24 15:01:00

怎样给文字加下划线？ 发帖心情

Post By：2012/11/4 10:49:00 [只看该作者]

看了一下专业报表，没找到怎么给文字加下划线的代码？

sgs

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：365 积分：2693 威望：0 精华：1 注册：2011/11/25 7:55:00

Post By：2012/11/4 11:02:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt.Style.Font = New Font("宋体",12,FontStyle.Underline) '设置字体
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览

客家阿哥

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：5954 威望：0 精华：0 注册：2012/10/24 15:01:00

Post By：2012/11/4 11:07:00 [只看该作者]

谢谢啊

客家阿哥

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：5954 威望：0 精华：0 注册：2012/10/24 15:01:00

Post By：2012/11/4 11:14:00 [只看该作者]

能不能做成“作业本“那种效果？就是每行从左到右画一条横线

sgs

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：365 积分：2693 威望：0 精华：1 注册：2011/11/25 7:55:00

Post By：2012/11/4 11:52:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.Horz= New prt.Linedef '设置网格线
rt.Style.GridLines.bottom= New prt.Linedef '设置网格线
'下面的代码向表格中填入值
rt.Rows.Count = 10
For i As Integer = 0 To 9
rt.cells(i,0).text = i
Next
doc.Preview() '预览报表