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

 平均，然后设置各列列宽

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

你隐藏了列，要这样处理

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