主题：有没有命令让窗口打开后所有控件都是只读的，不想一个个设置。

有没有命令让窗口打开后所有控件都是只读的，不想一个个设置。

如题。

命令 FORMS("XXXX").open 后打开的窗口里面的内容都是只读的。

知道，但有个问题就是，如果要编辑还是设回来，还要进行一堆判断，麻烦。

最简单的办法是复制一个同样的窗口，直接在Afterload里设只读，不同的场景打开不同窗口。

这样就有个问题是窗口太多，而且原来窗口改动这边还要重新生成。

能不能在窗口管理里增加个复制功能，直接复制原来窗口生成一个新窗口，这应该挺实用的。

不要说先导出文件，再导入，还是麻烦。

 没有必要做两个窗口，设置成只读和取消只读，就是几句代码的事。

 你可以把代码写在afterload事件，也可以写在打开窗口之后。

判断用户名就行啊：

Select case  User.name

   case “张三","李四","王五"

      设置控件的ReadOnly或Enabeld属性

end Select

如果新增行能编辑，其他行部分人不能编辑 ，设置窗口的全局Enter事件即可：

Dim bn As BooleanEnum
If Tables("表A").Current.DataRow.RowState = DataRowState.Added Then '新增行全部能编辑
    bn = BooleanEnum.False
Else
    Select Case  User.name
        Case "张三","李四","王五" '这些人不能编辑
            bn =   BooleanEnum.True
        Case Else
            bn =   BooleanEnum.False
    End Select
End If
e.sender.ReadOnly = bn

提问最好一次将问题讲清楚，不要一会增加一点要求，你1楼、3楼、8楼在不断第变化问题，本来只需一次回帖，5分钟搞定的问题，会需要几个小时。