Foxtable(狐表)用户栏目专家坐堂 → 点分页集合页面自动打开导航栏中相应的加载目录树


  共有2942人关注过本帖树形打印复制链接

主题:点分页集合页面自动打开导航栏中相应的加载目录树

美女呀,离线,留言给我吧!
采菊东篱下
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10374 威望:0 精华:0 注册:2019/4/6 8:45:00
点分页集合页面自动打开导航栏中相应的加载目录树  发帖心情 Post By:2020/9/1 17:27:00 [显示全部帖子]

我这样写报错:
Dim pg As WinForm.TabPage
Dim Bar As WinForm.NavBar = e.Form.Controls("NavBar1")
If pg = Forms("主窗口").Controls("TabControl1").TabPages(0) Then
    Bar.SelectedPage = Bar.NavPages("比赛积分")
ElseIf pg = Forms("主窗口").Controls("TabControl1").TabPages(1) Then
    Bar.SelectedPage = Bar.NavPages("基本信息")
ElseIf pg = Forms("主窗口").Controls("TabControl1").TabPages(2) Then
    Bar.SelectedPage = Bar.NavPages("团体或个人分组")
End If

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10374 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/9/1 17:42:00 [显示全部帖子]

如题啊,点分页集合页面自动打开导航栏中相应的加载目录树。

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10374 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/9/1 17:43:00 [显示全部帖子]

密码:888888
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:象棋排赛2020831未保存前.foxdb



 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10374 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/9/1 21:06:00 [显示全部帖子]

我换过了,报错啊,不行我才用自己的理解改写。

 回到顶部