Foxtable(狐表)用户栏目专家坐堂 → [求助]如何设置Table控件的行高?


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

主题:[求助]如何设置Table控件的行高?

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


加好友 发短信
等级:四尾狐 帖子:824 积分:6294 威望:0 精华:0 注册:2012/3/1 3:17:00
[求助]如何设置Table控件的行高?  发帖心情 Post By:2012/3/12 4:40:00 [只看该作者]

在窗口设计中插入Table,绑定了表,表中的行高怎么设置,求教高手~谢谢!

 回到顶部
帅哥,在线噢!
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/12 7:37:00 [只看该作者]

用代码:

Tables("窗口1_Table1").Grid.Rows.DefaultSize = 34

 


 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
  发帖心情 Post By:2014/10/12 21:53:00 [只看该作者]

同问:
如果只需要调整记录行高,不调整标题行高的话,该如何设置呢?谢谢!

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


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

For i As Integer = 1 To Tables("表A").Rows.count
    Tables("表A").grid.Rows(i).Height = 500
Next

 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
  发帖心情 Post By:2014/10/12 22:03:00 [只看该作者]

标题栏没变,但内容栏也没变。我希望,标题栏不变,内容栏与后面背景表格的高度一样。

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20141012220310.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-10-12 22:06:46编辑过]

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


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

For i As Integer = Tables("表A").HeaderRows To Tables("表A").Rows.count
    Tables("表A").grid.Rows(i).Height = 150
Next

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


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

 参考6楼,其实,你直接拉动原表的宽高直接就行啊。

 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
  发帖心情 Post By:2014/10/12 22:20:00 [只看该作者]

内容行的高度还是没变,这跟我的表是临时表,请问有没有关系呢?

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


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

 回复8楼,你的表名,要改成你对应的表名。

 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
  发帖心情 Post By:2014/10/12 22:26:00 [只看该作者]

有改啊!
For i As Integer = Tables("生产任务单_生产打印表").HeaderRows To Tables("生产任务单_生产打印表").Rows.count
    Tables("生产任务单_生产打印表").grid.Rows(i).Height = 150
Next

 回到顶部
总数 17 1 2 下一页