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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助，字体问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91968)

--  作者：wandongliang
--  发布时间：2016/10/23 12:09:00
--  求助，字体问题

Dim a As Double = Tables("零售总表.零售明细表").Font.Size
Dim fnt As New Font("宋体",a+1,FontStyle.Bold)
Tables("零售总表.零售明细表").Font = fnt
Dim dr As DataRow = DataTables("设定表").DataRows(0)
dr("第六板块") = a+1
这段代码会出现编译错误的报错，当我把FontStyle.Bold去掉之后，就恢复正常，这是为什么？不能设置字体粗细吗？

--  作者：狐狸爸爸
--  发布时间：2016/10/23 16:53:00
--
Dim a As Integer = Tables("零售总表.零售明细表").Font.Size
Dim fnt As New Font("宋体",a+1,FontStyle.Bold)
Tables("零售总表.零售明细表").Font = fnt
Dim dr As DataRow = DataTables("设定表").DataRows(0)
dr("第六板块") = a+1