For Each a As OBJECT In e.Form.panel.Parent.parent.parent.parent.controls For Each b As OBJECT In a.controls If B.text = "加载树" Then b.parent.BringToFront End If Next Next
或者任意事件加入代码,如
For Each a As OBJECT In Tables("组织架构").grid.Parent.controls For Each b As OBJECT In a.controls If B.text = "加载树" Then b.parent.BringToFront End If Next Next