主题：[求助]查询后禁止新增行，只能插入行

在查询模式下，禁止新增行，只能插入行怎么实现？

 

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

 把新增按钮禁用？AfterLoad事件

 

If vars("模式") = "查询" then

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

End If

 

 打开窗口，设置变量 vars("模式") = "查询"

有点甜老师，当我查询后，打开绿如窗口，新增禁用了，没问题，但在点加载全部的时候，打开时，新增还是处于禁用的呢？

 那你可以动态修改窗口的值，如

 

forms("窗口1").Controls("button1").Enabled = true

又有两三个月没弄这个了，有点甜老师，不知道是不是我没理解到你的意思，我在申请信息录入按钮里面设置变量： vars("模式") = "查询"

在工程款申请窗口AfterLoad代码如下，

If vars("模式") = "查询" Then
    e.Form.Controls("button6").Enabled = False
End If

 

动态修改窗口值写到哪儿呢？

 

 

此主题相关图片如下：11.jpg

你什么时候需要修改，就在什么事件写代码

 

forms("窗口1").Controls("button1").Enabled = true

我写到加载全部后面不对啊：forms("工程款申请窗口").Controls("button6").Enabled = True

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

有点甜老师，我做了一个示例，麻烦看看。

 

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

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

If forms("工程款申请窗口").Opened Then

    forms("工程款申请窗口").Controls("button6").Enabled = True

End If

大师，这两个代码冲突的啊，当打开"工程款申请窗口"，button6可见，

工程款申请窗口AfterLoad代码：

If vars("模式") = "查询" Then
    e.Form.Controls("button6").Enabled = False
End If

查询后新增不可见没问题，加载全部后新增还是不可见的