主题：[求助]按钮控制窗口权限

表A有20列，我用一个窗口完成数据录入，

点“按钮一”打开窗口A时，能完成1-10列的数据录入，11-20列的控件为可见，不可用；

点“按钮二”打开窗口A时，能完成11-13列的数据录入，1-10列，14-20列控件为可见，不可用；

点“按钮三”打开窗口A时，能完成14-16列的数据录入，1-13列，17-20列控件为可见，不可用；

点“按钮四”打开窗口A时，能完成17-20列的数据录入，1-16列的控件为可见，不可用；

参考代码

 

Dim r As Row = Tables("表A").Current

r("第一列") = e.Form.Controls("TextBox1").Text

r("第二列") = e.Form.Controls("TextBox2").Text

 

e.Form.Controls("Button2").Visible = True

e.Form.Controls("Button2").Enabled = False

大红袍老师，按照你刚的思路，列太多写出来很复杂，我把控件放在了4个面板上，直接用面板控制，这个怎么写啊？我按钮在主窗口上，分区控制面板在独立窗口A上。

 你的控件直接用列名来命名吧，这样编写代码会比较简单。不然，肯定要一列一列的赋值啊。

 

 不会做，具体上传实例。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

把对应的控件放在了面板中。

比如按钮1代码

 

Forms("窗口2").Open()
Forms("窗口2").controls("panel2").Enabled = False
Forms("窗口2").controls("panel3").Enabled = False
Forms("窗口2").controls("panel4").Enabled = False

搞定，谢谢大红袍老师，还发现了一个新问题，在做窗口的时候，我先做控件，后做面板，直接把面板至于最底层时，如果面板停靠不是Fill形式，必须移动了控件后，面板上面的控件才生效，又没办法解决，如果面板直接置于底层，面板区域内控制直接生效，这个我在做权限控制的时候，用得很多。

 你要移动一下控件，才会把控件放入panel里面的。

这个可以在下次更新的时候，处理一下，对于新手应该很多都是后期处理权限，每次加了面板都要移动一下控件，虽然不是很麻烦，但如果直接置于底层能解决，也更方便，而且用面板确实很方便。

 直接至于底层有别的用途，你如果要实现之间的关系，必须稍微移动一下。