Tables("表A").Cols("K").OpenWindow
For Each a As OBJECT In Tables("表A").grid.parent.controls
For Each b As OBJECT In a.controls
For Each c As OBJECT In b.controls
If c.text = "K" Then
c.parent.width = 600
Return ""
End If
Next
Next
Next
或者设计一个窗口放入图片管理器控件显示