专业报表字体设置出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表字体设置出错

共有2784人关注过本帖树形打印复制链接主题：专业报表字体设置出错

HappyFt

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

等级：八尾狐帖子：1930 积分：17558 威望：0 精华：0 注册：2014/7/29 19:09:00

专业报表字体设置出错 发帖心情

Post By：2015/1/16 17:10:00 [显示全部帖子]

Dim s As String
s = "ABC"
rx = New prt.RenderText
rx.Text = s
rx.Style.Font = New Font("宋体", prt_Upfontsize, FontStyle.Bold) '设置字体

图片点击可在新窗口打开查看此主题相关图片如下：错误.jpg

红色的代码想设置字体为粗体时为什么会出错，如果字体大小中间不用变量，而是下面这样就没问题

rx.Style.Font = New Font("宋体", 18, FontStyle.Bold) '设置字体

谢谢！

HappyFt

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

等级：八尾狐帖子：1930 积分：17558 威望：0 精华：0 注册：2014/7/29 19:09:00

Post By：2015/1/16 19:27:00 [显示全部帖子]

rx.Style.Font = New Font("宋体", prt_Upfontsize, FontStyle.Bold) '设置字体，这句会出错中间字体大小是全局变量有值的

rx.Style.Font = New Font("宋体", 18, FontStyle.Bold) '设置字体这样用没问题，中间是具体的数字。

HappyFt

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

等级：八尾狐帖子：1930 积分：17558 威望：0 精华：0 注册：2014/7/29 19:09:00

Post By：2015/1/17 9:47:00 [显示全部帖子]

不知道我下面的用法哪里不对？

Dim fnt As New Font("宋体", prt_Upfontsize, FontStyle.Bold) '设置字体
rx.Style.Font = fnt

这样用也会提示相同的错误，只要中间字号大小不用具体的数字，用变量就会提示出错。但因为字号大小是开放给用户可以自行设置的，所以这里必须用变量。

主题：专业报表字体设置出错