以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  行高变乱之后怎么用button调整成固定行高为20  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50793)

--  作者:JPG7
--  发布时间:2014/5/13 19:40:00
--  行高变乱之后怎么用button调整成固定行高为20

行高变乱之后怎么用button调整成固定行高为20,想实现国定行高(比较有序)和自动行高之间切换(方便看数据)

 

If e.Sender.text = "自动行高" Then
    e.Sender.Text = "默认行高"
    Tables("裁剪车间").AutoSizeRows()
ElseIf e.Sender.Text = "默认行高" Then
    e.Sender.Text = "自动行高"

?????????
End If

[此贴子已经被作者于2014-5-13 19:44:00编辑过]

--  作者:有点甜
--  发布时间:2014/5/13 19:53:00
--  

 如下

 

If e.Sender.text = "自动行高" Then
    e.Sender.Text = "默认行高"
    Tables("裁剪车间").AutoSizeRows()
ElseIf e.Sender.Text = "默认行高" Then
    e.Sender.Text = "自动行高"
    For i As Integer =  1 To Tables("裁剪车间").Rows.count
        Tables("裁剪车间").grid.Rows(i).height = 20
    Next
End If

[此贴子已经被作者于2014-5-13 19:52:45编辑过]

--  作者:JPG7
--  发布时间:2014/5/13 21:14:00
--  回复:(有点甜) 如下 If e.Sender.te...
能用,就是数据量很大的话,发应迟钝图片点击可在新窗口打开查看
--  作者:有点甜
--  发布时间:2014/5/13 21:25:00
--  

 加上这个就好了

 

 http://www.foxtable.com/help/topics/0453.htm

 


--  作者:JPG7
--  发布时间:2014/5/13 21:49:00
--  
以下是引用有点甜在2014-5-13 21:25:00的发言:

 加上这个就好了

 

 http://www.foxtable.com/help/topics/0453.htm

 

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