- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何可以锁定按钮？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59117)
-- 发布时间：2014/10/29 21:43:00
-- [求助]如何可以锁定按钮？
如何可以用代码去锁定一个“按钮”控件。
见上传的附件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:疾控中心票据打印24版.table |
我设计了一个窗口，当按下“下一行”按钮时，正在编辑的这一行锁定并换到下一行。但是，在已经锁定的这一行中如果点按“增加项目”按钮时，可以在已经锁定的行中继续增添一行。我想在“下一行”按钮中增添一些代码，点按“下一行”按钮后"增加项目"按钮将被锁定住。
请问：如何可以办到？
[此贴子已经被作者于2014-10-29 21:44:31编辑过]
-- 发布时间：2014/10/29 21:47:00
--
密码
-- 发布时间：2014/10/29 21:49:00
--
这个简单，直接写
e.Form.Controls("Button555").Enabled = False
-- 发布时间：2014/10/29 21:59:00
--
密码：5612514
-- 发布时间：2014/10/29 22:01:00
--
看3楼
-- 发布时间：2014/10/29 22:04:00
--
这样写
If Tables("票据").Position < Tables("票据").Rows.Count - 1 Then
Tables("票据").Position = Tables("票据").Position + 1
e.Form.Controls("Button4").Enabled = False
End If
-- 发布时间：2014/10/29 22:15:00
--
谢谢老师指导！但是输入代码后，又出现新有问题了：当我转入下一行时我需要“增加项目”这个按钮给我继续增加项目的，但是现在转入下一行时，“增加项目”按钮仍然是不可编辑的。我的目的是已经输入的行不可以再编辑了，新增加的行是需要编辑的。请问如何解决？
-- 发布时间：2014/10/29 22:17:00
--
If Tables("票据").Position < Tables("票据").Rows.Count - 1 Then
Tables("票据").Position = Tables("票据").Position + 1
If Tables("票据").Current.DataRow.RowState <> DataRowState.Added Then
e.Form.Controls("Button4").Enabled = False
End If
End If
-- 发布时间：2014/10/29 22:34:00
--
还是不能实现我所想的目的，转入下一行“增加项目”按钮要不然还被锁定，要不然是上一行依然可以编辑。
我想要的目的是：1、当按下“保存票据”按钮后，增加一行并锁定已经编辑完成的这一行，同时锁定了“增加项目”按钮，让其不再增加行。2、当转入下一行后，“增加项目”按钮可以继续编辑了。如此可以让已经编辑的行不能再更改了。
-- 发布时间：2014/10/29 22:46:00
--
If Tables("票据").Position < Tables("票据").Rows.Count - 1 Then
Tables("票据").Position = Tables("票据").Position + 1
If Tables("票据").Current.DataRow.RowState <> DataRowState.Added Then
e.Form.Controls("Button4").Enabled = False
Else
e.Form.Controls("Button4").Enabled = True
End If
End If