专家坐堂-[求助]窗口中的table控件生成的表格怎么修改字体大小Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口中的table控件生成的表格怎么修改字体大小  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=163052)

--  作者：aaaa002
--  发布时间：2021/4/22 9:37:00
--  [求助]窗口中的table控件生成的表格怎么修改字体大小

Dim b As New GroupTableBuilder("统计表1",DataTables("统计表"))
b.Groups.AddDef("单位") \'根据产品分组
b.Totals.AddDef("总数")
b.Totals.AddDef("备注")
b.VerticalTotal = True
Tables("窗口1_Table1").DataSource = b.BuildDataSource

Dim fnt As New Font(CurrentTable.Font.Name, 18, CurrentTable.Font.Style)
CurrentTable.Font = fnt
这样写代码单位显示空白，其他字体都变为18号字体了

--  作者：有点蓝
--  发布时间：2021/4/22 9:51:00
--

Tables("窗口1_Table1").DataSource = b.BuildDataSource
Dim fnt As New Font(CurrentTable.Font.Name, 18, CurrentTable.Font.Style)
Tables("窗口1_Table1").Font = fnt

--  作者：aaaa002
--  发布时间：2021/4/22 10:01:00
--
这样写只显示一个单位

--  作者：有点蓝
--  发布时间：2021/4/22 10:02:00
--
截图或者上传实例说明一下

--  作者：aaaa002
--  发布时间：2021/4/22 10:27:00
--

--  作者：aaaa002
--  发布时间：2021/4/22 10:32:00
--
111
[此贴子已经被作者于2021/4/22 11:37:56编辑过]

--  作者：aaaa002
--  发布时间：2021/4/22 10:32:00
--
一共是四个单位就显示一个单位

--  作者：有点蓝
--  发布时间：2021/4/22 10:37:00
--

……
Tables("窗口1_Table1").Font = fnt
Tables("窗口1_Table1").AutoSizeRows

--  作者：aaaa002
--  发布时间：2021/4/22 10:44:00
--
好了，谢谢