以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  切换页面当前表更改  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85188)
--  作者：百灵
--  发布时间：2016/5/19 16:36:00
--  切换页面当前表更改

想实现切换页面后，当前表切换到当前页面内的表控件绑定表，并且页面也重新切换到当前页面，代码如下，为什么实现不了，请大家帮助修改一下

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
If tb.SelectedPage.Text = "表A" Then
MainTable  = Tables("表A")
e.Form.OpenTo("表A")
tb.SelectedIndex = 1
End If
If tb.SelectedPage.Text = "表B" Then
e.Form.OpenTo("表B")
MainTable  = Tables("表B")
tb.SelectedIndex = 2
End If
--  作者：百灵
--  发布时间：2016/5/19 16:37:00
--  

补充一下，窗口是表C的主窗口
--  作者：大红袍
--  发布时间：2016/5/19 17:34:00
--  

不明白你什么意思，要更改当前表，就直接写

 

e.Form.Controls("Table1").Select
--  作者：百灵
--  发布时间：2016/5/19 19:14:00
--  
切换页面时更改当前表为当页面内的表控件的绑定表
--  作者：百灵
--  发布时间：2016/5/19 19:15:00
--  
切换页面时更改当前表为当前页面内的table的绑定表
--  作者：百灵
--  发布时间：2016/5/19 19:20:00
--  

e.Form.Controls("Table1").Select更改不了当前表，当前表更改不是用MainTable = Tables("表B")吗
--  作者：大红袍
--  发布时间：2016/5/19 19:44:00
--  

那就试试。具体问题做例子发上来。

 

MainTable = Tables("表B")
Tables("表B").Focus

msgbox(CurrentTable.name)