主题：表格锚定与列的问题

请教老师，TABLE在主窗口设置了 锚定了 TOP,  BOTTOM ,LEFT,RIGHT  能根据不同电脑的像素展开了

个人思路：

 平均，然后设置各列列宽

 

Dim width As Double = Tables("表A").grid.width
Dim w As Double = width / Tables("表A").cols.count
For Each c As Col In Tables("表A").cols
    c.width = w
Next

最简单，可以这样

 

http://www.foxtable.com/webhelp/scr/2380.htm

 

老师

看3楼代码。

你隐藏了列，要这样处理

 

Dim t As Table = e.Form.controls("Table1").Table
Dim width As Double = t.grid.width
Dim w As Double = width / (t.getColVisibleWidth.split("|").length / 2)
For Each c As Col In t.cols
    c.width = w
Next

大红袍老师，现在得到的结果是每列都平均了，能否只让一列的宽度来自适应，比如 “项目名称”，其他按设定好的不同列宽显示，这样用户使用可能会友好些。谢谢！！

 

Dim t As Table = Tables("表A")
Dim cname As String = "第二列"
Dim width As Double = t.grid.width
Dim sum As Double = 0
For Each c As Col In t.cols
    If c.Visible = True Then
        sum += iif(c.width=-1, 98, c.width)
    End If
Next
t.cols(cname).width = width - sum + t.cols(cname).width