标题：求助

1楼

qtcks 发表于：2010/8/17 20:03:00

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

[表A] [窗口1]

[表B] [权限窗口]

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

不知道是不是太啰嗦了。

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

2楼

czy 发表于：2010/8/17 20:10:00

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

3楼

qtcks 发表于：2010/8/17 21:32:00

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

4楼

qtcks 发表于：2010/8/17 21:36:00

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

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

此主题相关图片如下：1.png

此主题相关图片如下：2.png

5楼

狐狸爸爸 发表于：2010/8/17 21:50:00

很简单，切换表就。

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

6楼

czy 发表于：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

7楼

qtcks 发表于：2010/8/17 22:04:00

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

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

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

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

狐爸，帮忙看看啦。

8楼

qtcks 发表于：2010/8/17 22:05:00

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

9楼

qtcks 发表于：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

共9 条记录, 每页显示 10 条, 页签: [1]