以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口可否根据窗口内表格大小变化而变化  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122810)

--  作者:81538475
--  发布时间:2018/8/2 14:32:00
--  [求助]窗口可否根据窗口内表格大小变化而变化
如图,窗口中表格是fill方法生成的,所以数据的长短可能都会有变化,有没有办法让窗口的大小适应中间表格大小去变呢
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180802142940.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2018/8/2 14:34:00
--  

循环每一列,合计列的宽度,累加起来。

 

Dim t As Table = Tables("表A")
Dim sum As Double = 0
For i As Integer = 0 To t.grid.cols.count-1
    If t.grid.cols(i).visible Then
        sum += t.grid.cols(i).widthdisplay
    End If
Next
output.show(sum)