Foxtable(狐表)用户栏目专家坐堂 → 求助


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

主题:求助

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


加好友 发短信
等级:一尾狐 帖子:485 积分:3926 威望:0 精华:6 注册:2009/3/29 13:25:00
求助  发帖心情 Post By:2010/8/17 20:03:00 [只看该作者]

项目有2个表对于2个窗口

 [表A]   [窗口1]

 [表B]   [权限窗口]

 

如何实现 窗口1中的按钮打开并在当前显示权限窗口

不知道是不是太啰嗦了。

如何切换别的表中的窗口到当前来,并显示


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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/8/17 20:10:00 [只看该作者]

独立、共有、模式现在直接打开指定窗口就行,其它类型窗口没有办法。

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


加好友 发短信
等级:一尾狐 帖子:485 积分:3926 威望:0 精华:6 注册:2009/3/29 13:25:00
  发帖心情 Post By:2010/8/17 21:32:00 [只看该作者]

我想的窗口类型是主窗口哦。图片点击可在新窗口打开查看

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


加好友 发短信
等级:一尾狐 帖子:485 积分:3926 威望:0 精华:6 注册:2009/3/29 13:25:00
  发帖心情 Post By:2010/8/17 21:36:00 [只看该作者]

主要是模仿windows7 的计算机管理界面。

选中不同的树形,打开不同的窗口。


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

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

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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/8/17 21:50:00 [只看该作者]

很简单,切换表就。

或者窗口全部设计在一个表中,窗口类型全部用主窗口,除了左边这个用主窗口或者停靠窗口。


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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/8/17 21:51:00 [只看该作者]

有一个变通的方法。

假设主窗口有一分组框,某表的窗口2有一分组框,分组框中有n控件。

 

在主窗口执行下述代码将窗口2的组合框及分组框中的n个控件移动到主窗口中的分组框中。

 

Forms("窗口2").Open()
e.Form.Controls("GroupBox1").AddControl(Forms("窗口2").Controls("GroupBox1"))
Forms("窗口2").Close


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


加好友 发短信
等级:一尾狐 帖子:485 积分:3926 威望:0 精华:6 注册:2009/3/29 13:25:00
  发帖心情 Post By:2010/8/17 22:04:00 [只看该作者]

变通的方法还是有点问题的哦。

控件绑定到数据表,需要进行操作,很简单。

如果调用到别的表中。会有不可见的错误的哦。

数据操作起来就很麻烦的。图片点击可在新窗口打开查看

狐爸,帮忙看看啦。


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


加好友 发短信
等级:一尾狐 帖子:485 积分:3926 威望:0 精华:6 注册:2009/3/29 13:25:00
  发帖心情 Post By:2010/8/17 22:05:00 [只看该作者]

嘿嘿,如果能切换主表,然后再加上Czy版主教的方法做通用操作导航。嘿嘿。方便很多哦。

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


加好友 发短信
等级:一尾狐 帖子:485 积分:3926 威望:0 精华:6 注册:2009/3/29 13:25:00
  发帖心情 Post By:2010/8/17 22:56:00 [只看该作者]

嘿嘿,CZY版主,我找到一个很BT的方法。说出来笑死你。

表A   按钮    代码

For Each c As Table In Tables
    If c.Name <> Forms("窗口2").TableName Then
        c.Visible = False
    End If
Next
Forms("窗口2").show()
e.Form.Close
For Each d As Table In Tables
    If d.Name <> Forms("窗口2").TableName Then
        d.Visible = True
    End If
Next

 

 

表C 有(窗口2)

不知道会不会影响效率哦。hoho

 


 回到顶部