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

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

 

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

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

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

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

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

 

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

 

 

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

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

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

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

 

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

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

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

工程款申请窗口AfterLoad代码：

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

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

我定义两个变量，问题终于解决了

查询定义为：vars("模式") = "查询"

加载全部定义为：vars("模式") = "加载全部"

 

If vars("模式") = "查询" Then
    e.Form.Controls("button6").Enabled = False
    If vars("模式") = "加载全部" Then
        e.Form.Controls("button6").Enabled = True
    End If
End If