以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]表控件中,想要某一列占据剩余的屏幕空间,如何操作?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107392)

--  作者:newitman
--  发布时间:2017/9/27 10:51:00
--  [求助]表控件中,想要某一列占据剩余的屏幕空间,如何操作?

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


如上图,表控件中,想要订单号码这一列占据剩余的屏幕空间,如何操作?

--  作者:有点甜
--  发布时间:2017/9/27 11:46:00
--  
\'Dim t As Table = Tables("表C")
Dim t As Table = e.Form.controls("Table1").Table
Dim width As Double = t.grid.width - t.grid.cols(0).widthdisplay
Dim sum As Double = 0
For Each c As object In t.grid.cols
    If c.visible = True Then
        sum += c.widthdisplay
    End If
Next
t.grid.Cols("订单号码").widthdisplay += t.grid.width-sum