以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  当前行的行高,根据该单元格的内容所需,自动调整行高,当鼠标离开该单元格时,改行恢复默认行高?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133115)

--  作者:fengwenliuyan
--  发布时间:2019/4/7 15:29:00
--  当前行的行高,根据该单元格的内容所需,自动调整行高,当鼠标离开该单元格时,改行恢复默认行高?
鼠标单击进入单元格,当前行的行高,根据该单元格的内容所需,自动调整行高,当鼠标离开该单元格时,改行恢复默认行高,代码应该怎么写,写在哪个事件比较合适?


--  作者:有点甜
--  发布时间:2019/4/7 15:31:00
--  

参考

 

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

 

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

 

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


--  作者:fengwenliuyan
--  发布时间:2019/4/8 0:45:00
--  回复:(有点甜)参考?http://www.foxtable....
搞不定啊?
我在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
--  发布时间:2019/4/8 8:40:00
--  
求帮助
--  作者:有点甜
--  发布时间: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
--  发布时间:2019/4/8 14:37:00
--  回复:(有点甜)以下是引用fengwenliuyan在2019/4/8 ...

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


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


--  作者:fengwenliuyan
--  发布时间:2019/4/8 15:18:00
--  回复:(fengwenliuyan)回复:(有点甜)以下是引用f...
求帮助
--  作者:有点甜
--  发布时间: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
--  发布时间:2019/4/8 15:38:00
--  回复:(有点甜)If e.OldRange.RowSel >= 0 Then&...
那么,在窗口表中,应该怎么做相同的操作呢?
--  作者:有点甜
--  发布时间:2019/4/8 15:40:00
--  
以下是引用fengwenliuyan在2019/4/8 15:38:00的发言:
那么,在窗口表中,应该怎么做相同的操作呢?

 

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

 

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

 

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

    \'原来代码

End If