Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口中的table控件生成的表格怎么修改字体大小


  共有3098人关注过本帖树形打印复制链接

主题:[求助]窗口中的table控件生成的表格怎么修改字体大小

帅哥哟,离线,有人找我吗?
aaaa002
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:41 积分:297 威望:0 精华:0 注册:2021/3/17 19:30:00
[求助]窗口中的table控件生成的表格怎么修改字体大小  发帖心情 Post By:2021/4/22 9:37:00 [只看该作者]

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号字体了


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/22 9:51:00 [只看该作者]

Tables("窗口1_Table1").DataSource = b.BuildDataSource

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


 回到顶部
帅哥哟,离线,有人找我吗?
aaaa002
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:41 积分:297 威望:0 精华:0 注册:2021/3/17 19:30:00
  发帖心情 Post By:2021/4/22 10:01:00 [只看该作者]

这样写只显示一个单位


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/22 10:02:00 [只看该作者]

截图或者上传实例说明一下

 回到顶部
帅哥哟,离线,有人找我吗?
aaaa002
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:41 积分:297 威望:0 精华:0 注册:2021/3/17 19:30:00
  发帖心情 Post By:2021/4/22 10:27:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
aaaa002
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:41 积分:297 威望:0 精华:0 注册:2021/3/17 19:30:00
  发帖心情 Post By:2021/4/22 10:32:00 [只看该作者]

111
[此贴子已经被作者于2021/4/22 11:37:56编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
aaaa002
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:41 积分:297 威望:0 精华:0 注册:2021/3/17 19:30:00
  发帖心情 Post By:2021/4/22 10:32:00 [只看该作者]

一共是四个单位就显示一个单位


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/22 10:37:00 [只看该作者]

……

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

Tables("窗口1_Table1").AutoSizeRows


 回到顶部
帅哥哟,离线,有人找我吗?
aaaa002
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:41 积分:297 威望:0 精华:0 注册:2021/3/17 19:30:00
  发帖心情 Post By:2021/4/22 10:44:00 [只看该作者]

好了,谢谢

 回到顶部