以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  代码选定当前表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=79981)
--  作者：一笑
--  发布时间：2016/1/13 14:03:00
--  代码选定当前表
能用代码选定当前表吗？类似CurrentTable = Tables("运行总手册")，谢谢
--  作者：wgmcom
--  发布时间：2016/1/13 14:48:00
--  

通过DataTables集合，可以获得指定名称的DataTable(表)。

例如：

Dim dt As DataTable
dt = DataTables("订单")
--  作者：Hyphen
--  发布时间：2016/1/13 14:49:00
--  
MainTable = Tables("表A")
--  作者：大红袍
--  发布时间：2016/1/16 11:40:00
--  

1、如果是主窗口

 

MainTable = Tables("表A")

Tables("表A").Focus

 

2、如果是窗口表，就 Forms("窗口1").Controls("Table1").Select