- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]按钮效果求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109257)
-- 发布时间：2017/11/7 22:33:00
-- [求助]按钮效果求助
想实现这样的效果（在其他软件中看到的）
窗口运行后不允许直接在窗口的表中直接编辑数据
三个按钮的初始状态如下
开单按钮 可用，修改按钮 可用，保存按钮 不可用。
开单（取消）：单击开单按钮后表新增一行（单击开单后按钮标题自动变成取消,修改按钮变为不可用状态），此时当前行可以录入数据但并未保存添加到表中，
如单击保存（单击开单按钮后保存按钮自动变为可用状态）按钮则保存数据，三个按钮的状态恢复到初始状态。
如果不想保存，点击取消按钮则不保存，三个按钮的状态恢复到初始状态。
修改（取消）：单击修改按钮后可修改当前行数据（单击修改后按钮标题自动变成取消，开单按钮变为不可用状态），此时当前行数据所做的修改并未保存到表中，
如单击保存按钮（单击修改按钮后保存按钮自动变为可用状态）则保存数据，三个按钮的状态恢复到初始状态
如果不想保存，点击取消按钮则不保存，三个按钮的状态恢复到开单前。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试按钮功能.foxdb |
[此贴子已经被作者于2017/11/7 22:33:49编辑过]
-- 发布时间：2017/11/7 22:40:00
--
开单按钮事件，其它按钮控制方法一样，参考处理
If e.Sender.Text = "开单"
Tables("业务估价").Rows.AddNew()
e.Sender.Text = "取消"
e.Form.Controls("Button1").Enabled = False
e.Form.Controls("Button3").Enabled = True
Else
e.Sender.Text = "开单"
DataTables("业务估价").RejectChanges
e.Form.Controls("Button1").Enabled = True
e.Form.Controls("Button3").Enabled = False
End If
-- 发布时间：2017/11/9 11:52:00
-- 回复：（有点蓝）开单按钮事件，其它按钮控制方法一样...
有点蓝老师，我还差保存按钮的功能没设置好
初始状态
开单按钮 可用，修改按钮 可用，保存按钮 不可用。
点击开单或者修改后 如果点保存按钮 则恢复到初始状态 （“开单”按钮标题要显示开单不是取消，修改按钮标题要显示修改不是取消，）
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:测试按钮功能.foxdb |
-- 发布时间：2017/11/9 12:46:00
--
保存按钮
If e.Form.Controls("保存").Enabled = True
Tables("业务估价").Current.Save()
e.Form.Controls("修改取消").Enabled = True
e.Form.Controls("开单取消").Enabled = True
e.Form.Controls("修改取消").text = "修改"
e.Form.Controls("开单取消").text = "开单"
e.Form.Controls("保存").Enabled = False
End If