以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表格列如何自适合窗体屏幕  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32977)
--  作者：wuxianzuoji41
--  发布时间：2013/5/11 11:36:00
--  表格列如何自适合窗体屏幕
有的表可能有2列，有的表有10几列，如果设置成无论记列都自动按比例扩大或者缩小填满整个表。就是列的右侧没有黑色的空白。
--  作者：Bin
--  发布时间：2013/5/11 11:39:00
--  
可以扩充最后一列.Tables("表A").ExtendLastCol=True
等比例扩充比较麻烦,不好实现.
--  作者：lsy
--  发布时间：2013/5/11 15:07:00
--  
以下是引用Bin在2013-5-11 11:39:00的发言：
可以扩充最后一列.Tables("表A").ExtendLastCol=True
等比例扩充比较麻烦,不好实现.

DefaultColWidth为什么不起作用？难道非得放在某一特定的事件中？

SetColVisibleWidth可以在很多事件中起作用。

 

方法倒是简单，列多的时候，列宽太小；列少的时候，列宽太大，难看。

For Each c As Col In CurrentTable.Cols
    c.Width = WorkingAreaWidth / CurrentTable.Cols.Count
Next

 

下面给个基本的列宽，好看点。

For Each c As Col In CurrentTable.Cols
    If c.Width <> 98 Then
        c.Width = 98
    End If
Next
CurrentTable.ExtendLastCol = True

[此贴子已经被作者于2013-5-11 16:26:00编辑过]