专家坐堂-关于表切换Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于表切换  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58260)

--  作者：newsun2k
--  发布时间：2014/10/14 16:56:00
--  关于表切换
我设计了一个导航窗口。窗口有个任务栏，任务栏的topiclinkclick事件中的代码是：
Select Case e.page.Name
Case "页面1"

If DataTables.Contains("users") = False Then \'如果表C没有加载
DataTables.Load("users") \'加载表C
MainTable = Tables("users")
End If
Case "页面2"

If DataTables.Contains("usergroups") = False Then \'如果表C没有加载
DataTables.Load("usergroups") \'加载表C
DataTables.Load("groupqx") \'加载表C

MainTable = Tables("usergroups")
End If

End Select
运行后，点击页面1的link，打开users表没问题；
点击页面2的link，打开usergroups表也没有问题；
再点击页面1的link，没有任何反应，没有我预料中的切换到users表。
这是什么原因呢？

--  作者：newsun2k
--  发布时间：2014/10/14 16:57:00
--
补充一下，几个表都是外部表

--  作者：有点甜
--  发布时间：2014/10/14 17:08:00
--
Select Case e.page.Name
    Case "页面1"
        If DataTables.Contains("users") = False Then \'如果表C没有加载
            DataTables.Load("users") \'加载表C

        End If
        MainTable = Tables("users")
    Case "页面2"
        If DataTables.Contains("usergroups") = False Then \'如果表C没有加载
            DataTables.Load("usergroups") \'加载表C
            DataTables.Load("groupqx") \'加载表C
        End If
        MainTable = Tables("usergroups")
End Select