Foxtable(狐表)用户栏目专家坐堂 → 设置列名高度


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

主题:设置列名高度

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


加好友 发短信
等级:九尾狐 帖子:2701 积分:17999 威望:0 精华:0 注册:2013/4/9 10:41:00
设置列名高度  发帖心情 Post By:2018/1/23 12:22:00 [只看该作者]

能帮忙看看这个吗?
为什么我一直没搞清楚 设置列高和列名高呢

为什么有时候 红色代码是设置的列名,但有时候有时设置的 列高呢,感谢 感谢 
而黑色的代码 HeaderRows + 0 就是甚至的 列高呢。



Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 0).Height = 29
Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 1).Height = 29
Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 2).Height = 29
Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 3).Height = 29
Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 4).Height = 29
Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 5).Height = 29
Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 6).Height = 29

Tables("计划表窗口_Table1").Grid.Rows(Tables("计划表").HeaderRows + 0).Height = 0
Tables("计划表窗口_Table2").Grid.Rows(Tables("计划表").HeaderRows + 0).Height = 0
Tables("计划表窗口_Table3").Grid.Rows(Tables("计划表").HeaderRows + 0).Height = 0


[此贴子已经被作者于2018/1/23 12:22:48编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/23 12:29:00 [只看该作者]

没看懂你什么意思。你要实现什么效果?

 

下面这句代码的意思是,设置第一行、第二行的高度

 

Tables("计划表窗口_Table1").Grid.Rows(0).Height = 100

Tables("计划表窗口_Table1").Grid.Rows(1).Height = 100


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


加好友 发短信
等级:九尾狐 帖子:2701 积分:17999 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2018/1/23 12:32:00 [只看该作者]

我想分别设置列名的高度和列的高度,感谢感谢 如果列名有两三层,如果第一层要设置为0第二次设置为10,如果列设置为29,应该怎么做啊,感谢感谢 
[此贴子已经被作者于2018/1/23 12:37:05编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/23 12:37:00 [只看该作者]

设置字体参考

 

Dim tb As Table = Tables("表A")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = tb.Grid.Styles.Add("样式1")
Dim rng As C1.Win.C1FlexGrid.CellRange = tb.Grid.GetCellRange(0,1, 0,10) '第二行第一列到第十列
cs1.font = new font("宋体", 15, FontStyle.Strikeout)
cs1.backcolor = color.yellow
cs1.forecolor = color.red
rng.style = cs1


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


加好友 发短信
等级:九尾狐 帖子:2701 积分:17999 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2018/1/23 13:02:00 [只看该作者]

没看懂代码,我先认真看看,
列名的高度可以直接用下面代码设置吗?

Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 6).Height = 29
Tables("计划表窗口_Table1").Grid.Rows(Tables("日计划").HeaderRows + 0).Height = 0

为什么Table1 明明绑定的是 计划表,如果日计划改为 计划表却没有效果,

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


加好友 发短信
等级:九尾狐 帖子:2701 积分:17999 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2018/1/23 14:21:00 [只看该作者]

可以了 谢谢 谢谢 

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/23 14:31:00 [只看该作者]

Dim tb As Table = Tables("表A")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = tb.Grid.Styles.Add("样式1")
Dim rng As C1.Win.C1FlexGrid.CellRange = tb.Grid.GetCellRange(0,1, 0,10) '第一行第一列到第十列
cs1.font = new font("宋体", 15)
cs1.backcolor = color.yellow
cs1.forecolor = color.red
rng.style = cs1


 回到顶部