click或者doubleclick代码
For Each a As OBJECT In e.Table.grid.Parent.controls For Each b As OBJECT In a.controls For Each c As OBJECT In b.controls If c.text = e.Col.name Then c.parent.SelectedTab = c Return End If Next NextNext