Dim Isfind As Boolean
For Each a As OBJECT In Tables("表A").grid.Parent.controls
For Each b As OBJECT In a.controls
If B.text = "第九列" Then
b.AutoHiding = False
Isfind = True
Exit For
End If
Next
If Isfind = False
For Each b As OBJECT In a.controls
b.AutoHiding = False
For Each c As OBJECT In b.controls
If c.text = "第九列" Then
c.parent.SelectedTab = c
Return ""
End If
Next
b.AutoHiding = True
Next
End If
Next