Foxtable(狐表)用户栏目专家坐堂 → 当前行的行高,根据该单元格的内容所需,自动调整行高,当鼠标离开该单元格时,改行恢复默认行高?


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

主题:当前行的行高,根据该单元格的内容所需,自动调整行高,当鼠标离开该单元格时,改行恢复默认行高?

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


加好友 发短信
等级:四尾狐 帖子:902 积分:8258 威望:0 精华:0 注册:2012/10/19 13:55:00
当前行的行高,根据该单元格的内容所需,自动调整行高,当鼠标离开该单元格时,改行恢复默认行高?  发帖心情 Post By:2019/4/7 15:29:00 [只看该作者]

鼠标单击进入单元格,当前行的行高,根据该单元格的内容所需,自动调整行高,当鼠标离开该单元格时,改行恢复默认行高,代码应该怎么写,写在哪个事件比较合适?


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


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

参考

 

http://www.foxtable.com/webhelp/scr/1564.htm

 

http://www.foxtable.com/webhelp/scr/1552.htm

 

调整代码,写到你所需要的事件,即可


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


加好友 发短信
等级:四尾狐 帖子:902 积分:8258 威望:0 精华:0 注册:2012/10/19 13:55:00
回复:(有点甜)参考?http://www.foxtable....  发帖心情 Post By:2019/4/8 0:45:00 [只看该作者]

搞不定啊?
我在AfterOpenProject事件中,设置了Tables("入库明细表")的默认行高:
Tables("入库明细表").DefaultRowHeight = 20

在表属性的DoubleClick事件中,设置了:

If e.Col.Name = "入库备要" Then

    e.Table.AutoSizeRow(e.Row.Index)

End If


那么,请问,换行双击,或选择其他单元格双击时,本次调整的行高恢复到AfterOpenProject事件中,设置的Tables("入库明细表")的默认行高,这个代码应该怎么写?写在哪儿?

[此贴子已经被作者于2019/4/8 0:46:27编辑过]

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


加好友 发短信
等级:四尾狐 帖子:902 积分:8258 威望:0 精华:0 注册:2012/10/19 13:55:00
  发帖心情 Post By:2019/4/8 8:40:00 [只看该作者]

求帮助

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


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

以下是引用fengwenliuyan在2019/4/8 0:45:00的发言:


 

那么,请问,换行双击,或选择其他单元格双击时,本次调整的行高恢复到AfterOpenProject事件中,设置的Tables("入库明细表")的默认行高,这个代码应该怎么写?写在哪儿?

[此贴子已经被作者于2019/4/8 0:46:27编辑过]

 

比如,afterselChanged事件,写代码

 

e.Table.grid.Rows(e.OldRange.RowSel+e.Table.HeaderRows).height = e.Table.DefaultRowHeight


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


加好友 发短信
等级:四尾狐 帖子:902 积分:8258 威望:0 精华:0 注册:2012/10/19 13:55:00
回复:(有点甜)以下是引用fengwenliuyan在2019/4/8 ...  发帖心情 Post By:2019/4/8 14:37:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:001.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:002.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:四尾狐 帖子:902 积分:8258 威望:0 精华:0 注册:2012/10/19 13:55:00
回复:(fengwenliuyan)回复:(有点甜)以下是引用f...  发帖心情 Post By:2019/4/8 15:18:00 [只看该作者]

求帮助

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


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

If e.OldRange.RowSel >= 0 Then
    e.Table.grid.Rows(e.OldRange.RowSel+e.Table.HeaderRows).height = e.Table.DefaultRowHeight
End If

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


加好友 发短信
等级:四尾狐 帖子:902 积分:8258 威望:0 精华:0 注册:2012/10/19 13:55:00
回复:(有点甜)If e.OldRange.RowSel >= 0 Then&...  发帖心情 Post By:2019/4/8 15:38:00 [只看该作者]

那么,在窗口表中,应该怎么做相同的操作呢?

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


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

以下是引用fengwenliuyan在2019/4/8 15:38:00的发言:
那么,在窗口表中,应该怎么做相同的操作呢?

 

写到你主表的afterSelChanged事件即可。

 

如果要判断表名,加入代码

 

If e.table.name = "窗口1_Table1" Then

    '原来代码

End If


 回到顶部
总数 29 1 2 3 下一页