- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]查询后禁止新增行，只能插入行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104276)
-- 发布时间：2017/7/26 16:12:00
-- [求助]查询后禁止新增行，只能插入行
在查询模式下，禁止新增行，只能插入行怎么实现？
此主题相关图片如下：1.jpg
-- 发布时间：2017/7/26 16:49:00
--
把新增按钮禁用？AfterLoad事件
If vars("模式") = "查询" then
e.Form.Controls("button1").Enabled = False
End If
打开窗口，设置变量 vars("模式") = "查询"
-- 发布时间：2017/7/27 9:16:00
--
有点甜老师，当我查询后，打开绿如窗口，新增禁用了，没问题，但在点加载全部的时候，打开时，新增还是处于禁用的呢？
-- 发布时间：2017/7/27 9:30:00
--
那你可以动态修改窗口的值，如
forms("窗口1").Controls("button1").Enabled = true
-- 发布时间：2017/7/27 10:04:00
--
又有两三个月没弄这个了，有点甜老师，不知道是不是我没理解到你的意思，我在申请信息录入按钮里面设置变量： vars("模式") = "查询"
在工程款申请窗口AfterLoad代码如下，
If vars("模式") = "查询" Then
e.Form.Controls("button6").Enabled = False
End If
动态修改窗口值写到哪儿呢？
此主题相关图片如下：11.jpg
-- 发布时间：2017/7/27 10:18:00
--
你什么时候需要修改，就在什么事件写代码
forms("窗口1").Controls("button1").Enabled = true
-- 发布时间：2017/7/27 10:32:00
--
我写到加载全部后面不对啊：forms("工程款申请窗口").Controls("button6").Enabled = True
此主题相关图片如下：2.jpg
-- 发布时间：2017/7/27 11:39:00
--
有点甜老师，我做了一个示例，麻烦看看。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.foxdb |
-- 发布时间：2017/7/27 11:58:00
--
If forms("工程款申请窗口").Opened Then
forms("工程款申请窗口").Controls("button6").Enabled = True
End If
-- 发布时间：2017/7/27 12:23:00
--
If forms("工程款申请窗口").Opened Then
forms("工程款申请窗口").Controls("button6").Enabled = True
End If
大师，这两个代码冲突的啊，当打开"工程款申请窗口"，button6可见，
工程款申请窗口AfterLoad代码：
If vars("模式") = "查询" Then
e.Form.Controls("button6").Enabled = False
End If
查询后新增不可见没问题，加载全部后新增还是不可见的