以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教窗口菜单问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187578)
--  作者：13315253800
--  发布时间：2023/7/28 12:25:00
--  请教窗口菜单问题

蓝老师，我按Foxtable数据库应用开发宝典的开发实战订单系统的指导，设置窗口菜单

窗口菜单ItemClick事件代码

Select Case e.StripItem.Name

    Case"输入"

        e.Form.Controls("TabControl1").TabPages(0).Visible = True

        e.Form.Controls("TabControl1").Selectedlndex = 0

    Case"查询"

        e.Form.Controls("TabControl1").TabPages(1).Visible = True

        e.Form.Controls("TabControl1").Selectedlndex = 1   

End Select

当点击窗口“输入”或“查询”菜单时，提示如下错误

.NET Framework 版本：4.0.30319.36543

Foxtable 版本：2022.8.18.1

错误所在事件：窗口,主控窗口,ItemClick

详细错误信息：

Public member \'Selectedlndex\' on type \'TabControl\' not found.

敬请蓝老师指导一下
--  作者：SbFox
--  发布时间：2023/7/28 13:20:00
--  
2个页面  TabPages 隐藏了1个之后    就只剩1个   lndex只有0    
e.Form.Controls("TabControl1").Selectedlndex = 1    
就出错了


试试

Select Case e.StripItem.Name

    Case"输入"

        e.Form.Controls("TabControl1").TabPages(0).Visible = True

        e.Form.Controls("TabControl1").TabPages(1).Visible = False

    Case"查询"

        e.Form.Controls("TabControl1").TabPages(0).Visible = False

        e.Form.Controls("TabControl1").TabPages(1).Visible = True

End Select
--  作者：有点蓝
--  发布时间：2023/7/28 13:35:00
--  
SelectedIndex单词拼写错了
--  作者：13315253800
--  发布时间：2023/7/28 14:44:00
--  
谢谢蓝老师！单词修改后，两种方式都可以了