主题：【SQLQuery】如何实现按钮代码将当前窗体中SQLQuery表中的数据进行显示为代码中的数据呢？

拷贝3楼的代码，再执行一次，不就好了？

重复使用到的代码，建议提取，弄成函数来调用。

改代码

Dim t As Table = e.Form.controls("Table1").Table
Dim width As Double = t.grid.width - t.grid.cols(0).widthdisplay
Dim sum As Double = 0
For Each c As object In t.grid.cols
    If c.index > 0 andalso c.visible = True Then
        sum += c.widthdisplay
    End If
Next
For Each c As object In t.grid.cols
    If c.index > 0 AndAlso c.visible = True Then
        c.width = c.widthdisplay/sum*width
    End If
Next