参考
Dim t As Table = Tables("表A")For Each a As OBJECT In t.grid.parent.controls For Each b As OBJECT In a.controls If t.Cols.contains(b.text) Then \'b.CanCloseTabs = False b.CanAutoHide = False End If NextNext