以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]表属性  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74957)
--  作者：kaiyu
--  发布时间：2015/9/23 14:16:00
--  [求助]表属性
表属性中一个判断这个表是否获得焦点Focused,我想如果这个表没有获得焦点，则我让它获得焦点，用t.select(0,0)好象没用。
--  作者：大红袍
--  发布时间：2015/9/23 14:27:00
--  

如果是主表

 

If CurrentTable.name <> "表B" Then
    MainTable = Tables("表B")
End If

msgbox(CurrentTable.name)
--  作者：大红袍
--  发布时间：2015/9/23 14:29:00
--  

如果是窗口表

 

If CurrentTable.name <> "窗口1_Table1" Then
    Forms("窗口1").Controls("Table1").Select
End If

msgbox(CurrentTable.name)