以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【求助】窗体table怎么设置窗体大小改变之后,table表中的列也对应进行比例放大或缩小  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102528)

--  作者:李孝春
--  发布时间:2017/6/21 21:13:00
--  【求助】窗体table怎么设置窗体大小改变之后,table表中的列也对应进行比例放大或缩小
【求助】窗体table怎么设置窗体大小改变之后,table表中的列也对应进行比例放大或缩小呢?
不然窗体拉大,table中会存在空余部分,不美观



【有点色老师】思路解决如下:
如果是sqltable格式时代码放在窗体启动时,及大小改变后事件代码中:
Dim t As Table = Tables("登记订货_Table1")
Dim width As Double = t.grid.width
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
For Each c As object In t.grid.cols
    If c.visible = True Then
        c.width = c.widthdisplay/sum*width
    End If
Next

如果是table格式时代码放在窗体启动时,及大小改变后事件代码中:
Dim t As Table = Tables("Table1")
Dim width As Double = t.grid.width
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
For Each c As object In t.grid.cols
    If c.visible = True Then
        c.width = c.widthdisplay/sum*width
    End If
Next
[此贴子已经被作者于2017/6/22 13:15:33编辑过]

--  作者:有点色
--  发布时间:2017/6/21 22:21:00
--  

 参考代码

 

Dim t As Table = Tables("表A")
Dim width As Double = t.grid.width
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
For Each c As object In t.grid.cols
    If c.visible = True Then
        c.width = c.widthdisplay/sum*width
    End If
Next


--  作者:李孝春
--  发布时间:2017/6/21 23:50:00
--  回复:(有点色) 参考代码 Dim t As T...
放在窗体启动后事件么?我明天电脑上试一试,谢谢先
--  作者:李孝春
--  发布时间:2017/6/22 9:35:00
--  回复:(有点色) 参考代码 Dim t As T...
有点色老师  是放在窗口SIZECHANGED事件中么?经过测试  还是不能完美实现填充哦
--  作者:有点色
--  发布时间:2017/6/22 10:10:00
--  
 我测试没问题。有问题上传实例说明。
--  作者:李孝春
--  发布时间:2017/6/22 10:31:00
--  回复:(有点色)?我测试没问题。有问题上传实例...
有点色老师  是放在窗口SIZECHANGED事件中么?还是其他事件呢?

[此贴子已经被作者于2017/6/22 10:34:00编辑过]

--  作者:有点色
--  发布时间:2017/6/22 11:02:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:窗体大小改变窗体表列宽自动填充测试.table


--  作者:李孝春
--  发布时间:2017/6/22 11:48:00
--  回复:(有点色)[upload=table,窗体大小改变窗体表列...
谢谢。原来是要在窗体加载后及大小改变事件都要写入对应的代码