- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 传统编辑方法的修改按钮代码要怎么写 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38988)
-- 发布时间：2013/8/12 21:40:00
-- 传统编辑方法的修改按钮代码要怎么写
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:传统编辑方法.table |
请老师看看如果想要设个修改按钮代码要怎么写了
想要的效果是如果没有按 修改按钮，就禁止直接在窗口中修改编辑数据，除非按了 修改按钮才可以修改数据
-- 发布时间：2013/8/12 22:30:00
--
可以直接使用一句代码控制。
Tables("员工").AllowEdit = False
-- 发布时间：2013/8/13 15:13:00
--
老师这个代码
Tables("员工").AllowEdit = False
放进去为什么连新增都没办法，
-- 发布时间：2013/8/13 15:15:00
--
限制了编辑,是不管你是否新增行都无法编辑的.
-- 发布时间：2013/8/13 16:20:00
--
那请老师看看如果想要
设个修改按钮代码要怎么写了
想要的效果是如果没有按 修改按钮，就禁止直接在窗口中修改编辑数据，除非按了 修改按钮才可以修改数据
-- 发布时间：2013/8/13 16:40:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目992.table |
注意窗口的AfterLoad事件有代码，保存和撤销按钮的代码也有改动
-- 发布时间：2013/8/13 16:58:00
--
狐爸，修改和保存和撤销按钮可以了
只是现在按 新增按钮没法输入，请狐爸再看看
-- 发布时间：2013/8/13 16:59:00
--
新增按钮前面加一行：
Tables("表名").AllowEdit = True
-- 发布时间：2013/8/13 18:48:00
--
老师可以了，谢谢你了
再问一下 EXCEL 的代码
NOH = Sheets("Purchase Invoice").Range("E3")
RET = MsgBox("正在准备《删除此单据》如按确定将无法返回数据 ,按【确定】确认要删除，否则请【取消】返回工作表！" & Chr(13) & Chr(13) & _
"Do you want to 《Delete this Invoice 》, Click【YES】Delete,【NO】Cancel！", vbInformation + vbOKCancel, "确认 * CONFIRM")
If RET = vbOK Then
在FOXTABLE 要怎么修改呢
-- 发布时间：2013/8/13 19:26:00
--
参考