你代码没问题的啊。
你要所有列累加的宽度?
Dim sum As Double = 0For Each c As Col In e.Form.Controls("Table1").Table.cols If c.Visible = True Then sum += iif(c.width=-1, 98, c.width) End IfNextmsgbox(sum)