专家坐堂-文本框会显示我当前表的表名Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  文本框会显示我当前表的表名  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102001)

--  作者：jick0526
--  发布时间：2017/6/11 16:07:00
--  文本框会显示我当前表的表名
老师，请问下，我在菜单栏做了个文本框，我想这个文本框会显示我当前表的表名，代码要怎么写，谢谢

--  作者：有点色
--  发布时间：2017/6/11 16:41:00
--

systemIdle事件

RibbonTabs("Common").Groups("ClipBoard").Items("Paste").text = CurrentTable.name

--  作者：jick0526
--  发布时间：2017/6/11 17:05:00
--
老师，不好意思，弄错，不是表名，是表标题

--  作者：有点色
--  发布时间：2017/6/11 18:42:00
--
Dim tab = basemainform.controls("mainpages")
Dim p = tab.tabpages(CurrentTable.DataTable.name)
If p IsNot Nothing Then
    RibbonTabs("Common").Groups("ClipBoard").Items("Paste").text = p.text
Else
    RibbonTabs("Common").Groups("ClipBoard").Items("Paste").text = CurrentTable.name
End If