判断页面所有控件:http://www.foxtable.com/webhelp/scr/1849.htm
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
For Each p As WinForm.TabPage In tab.TabPages
Dim find As Boolean
For Each c As WinForm.Control In p.Children
If Typeof c Is WinForm.Table Then
Dim t As WinForm.Table = c
t.Select(0,0)
find = True
Exit For
End If
Next
If find = False Then
End If
Next