主题：如何在设置的登录窗口中实现主窗口中控件权限问题

我没有用系统提供的登录界面，而是自行设计了一个窗口，设置了用户名称和密码

另外又设计了一个主窗口，其中增加了四个按钮，分别为编辑，查询，打印，和退出系统四块，我想把每一块按钮的权限分别设置，比如，编辑按钮只有财务人员可以用，其他用户都不可以，下面的代码有什么问题吗，总是提示“登录窗口已关闭，无法引用ComboBox1用户名称该控件。

 

Dim t As WinForm.ComboBox = Forms("登录窗口").Controls("ComboBox1用户名称")
Select Case t.value
Case "财务人员"
Forms("主窗口").close
Forms("piao据编辑窗口").show
Case "财务主管","管理者"
MessageBox.show("您无权执行此操作!")
End Select

 你需要用到全局变量来保存用户的名字，这样，在什么地方都可以用到这个值了。

http://www.foxtable.com/help/topics/1842.htm

全局代码
 Public userType As String

登录窗口
 userType = Forms("登录窗口").Controls("ComboBox1用户名称")

 编写代码
Select Case userType
    Case "财务人员"
        Forms("主窗口").close
        Forms("piao据编辑窗口").show
    Case "财务主管","管理者"
        MessageBox.show("您无权执行此操作!")
End Select

提示很有帮助，我用了var变量，因为要在窗口中的控件中进行传递，效果已经达到，十分感谢您。

另外，想再请教个问题，系统中的”日常工作“功能区里面的高级筛选功能如何编辑代码得到呢，我想设计一个类似那样的模糊组合筛选查询

 

 帮助有一个现成的例子。

http://www.foxtable.com/help/topics/1058.htm

这个功能已经实现，我是想着可以像高级筛选功能一样，查找字段可以再下拉列中选择，值也可以在下拉列表中实现，然后条件设为 等于，不等于，包含等可选项，关系设为，and 或者 or 这样。

 这个不太难，就是动态合成筛选条件。

 你先把界面弄出来，把你能做的先做，不懂的上传例子提问。

好的

高级删选窗口中的表 是绑定了一个不可见的含有 列名称分别为 连接 列 比较 内容 四列内容的内部数据表，还是怎样实现的啊？

另外，试用版是不是没有主窗体一说呢？

 试用版和商业版、开发版的功能大致一样，只是窗口个数和表个数有限制。

 下拉的内容都是动态添加进去的，没有内部表一说。