Foxtable(狐表)用户栏目专家坐堂 → [求助]目录树内打不开窗口


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

主题:[求助]目录树内打不开窗口

帅哥哟,离线,有人找我吗?
荟美绘姿
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
[求助]目录树内打不开窗口  发帖心情 Post By:2016/1/23 14:32:00 [只看该作者]

Select Case e.Node.text
    Case "基本情况"
        Forms("案件基本信息").OpenTo("jbqh")
    Case "违章登记"
        Forms("违章登记").OpenTo("wzdj")
        '更多的任务
End Select

 

以上的代码在目录树的NodeMouseClick事件内为何打不开"wzdj"表内的“违章登记”窗口,代码错在哪里了?

 

请大侠帮忙解决一下下,谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
荟美绘姿
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
  发帖心情 Post By:2016/1/23 14:51:00 [只看该作者]

没人回答我只能顶起来

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/1/23 14:51:00 [只看该作者]

代码没有问题,注意停靠窗口的tab,可能没有显示出来

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
荟美绘姿
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
  发帖心情 Post By:2016/1/23 15:12:00 [只看该作者]

3楼能说的具体点

 回到顶部
帅哥哟,离线,有人找我吗?
荟美绘姿
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
  发帖心情 Post By:2016/1/23 15:49:00 [只看该作者]

解决不了我只能顶,跪求帮忙解决

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/1/23 16:00:00 [只看该作者]

“违章登记”窗口是什么类型的窗口,停靠窗口多的话,看看停靠窗口的页面

 回到顶部
帅哥哟,离线,有人找我吗?
荟美绘姿
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
  发帖心情 Post By:2016/1/23 16:27:00 [只看该作者]

类型是主窗回

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/1/23 16:38:00 [只看该作者]

Forms("违章登记").Open,这样能打开不

 回到顶部
帅哥哟,离线,有人找我吗?
荟美绘姿
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:238 积分:1838 威望:0 精华:0 注册:2014/7/1 8:56:00
  发帖心情 Post By:2016/1/23 16:44:00 [只看该作者]

解决了

应该这样写:

Select Case e.Node.text
    Case "基本情况"
        Forms("案件基本信息").Open()
        MainTable = Tables("jbqh")
    Case "违章登记"
        Forms("违章登记").Open()
        MainTable = Tables("wzdj")
        '更多的任务
End Select


 回到顶部