If e.Col.IsString AndAlso e.Col.DataCol.MaxLength = -1 Then
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
End If
Next
Next
Next
End If