以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  TabControl 页面切换  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121952)
--  作者：yifan3429
--  发布时间：2018/7/16 14:21:00
--  TabControl 页面切换

TabControl


SelectedIndexChanged

选择不同页面后执行。



Dim bar As WinForm.TabControl = e.sender
Select Case bar.SelectedPage.ButtonText
    Case "全部"
         MainTable = Tables("表A")
    Case "赢单"
         Tables("终端用户").Filter = "[客户等级] = \'赢单客户\'"
    Case "输单"
         MainTable = Tables("表C")
Case "公海"
         MainTable = Tables("表C")
End Select
--  作者：有点甜
--  发布时间：2018/7/16 14:36:00
--  
Dim bar As WinForm.TabControl = e.sender
msgbox(bar.SelectedPage.Text)
Select Case bar.SelectedPage.Text
    Case "全部"
         MainTable = Tables("表A")
    Case "赢单"
         Tables("终端用户").Filter = "[客户等级] = \'赢单客户\'"
    Case "输单"
         MainTable = Tables("表C")
Case "公海"
         MainTable = Tables("表C")
End Select
--  作者：liufucan
--  发布时间：2020/4/9 23:18:00
--  
请问如何在SelectedIndexChanging事件中获取即将要切换的页签名呢
--  作者：有点蓝
--  发布时间：2020/4/10 8:42:00
--  
参考：http://www.foxtable.com/webhelp/topics/2415.htm

msgbox(e.sender.tabpages(e.NewIndex).text)