以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  录入窗口的锁定  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58360)

--  作者:shiliwhy_91641
--  发布时间:2014/10/15 19:18:00
--  录入窗口的锁定
如何做到在审核后锁定录入窗口?
--  作者:有点甜
--  发布时间:2014/10/15 19:20:00
--  

 审核以后,把那一行锁定即可。

 

 某行.Locked = True

 某行.Save


--  作者:shiliwhy_91641
--  发布时间:2014/10/15 19:26:00
--  
设计的时候是窗口录入。如果锁定行后窗口中的“取消审核”按钮无效?
--  作者:有点甜
--  发布时间:2014/10/15 19:38:00
--  
  例子发上来
--  作者:shiliwhy_91641
--  发布时间:2014/10/15 19:59:00
--  

PrepareEdit

e.Cancel = True \'禁止直接编辑,双击后弹出录入窗口

DataColChanging

If e.DataRow.IsNull("审核") = False Then \'如果审批列不为空

    e.Cancel = True \'则禁止编辑

End If

以上代码不行,

DataColChanging


Locked = True

锁定后,不能取消审核,其它的列也不能输入



目前我设计的是窗口录入,双击表中的某行时,弹出录入窗口,当表中的审核列不为空时,禁用某些列,且这些列不能在窗口中录入,另外的列可以在窗口中录入,试问能否实现?


--  作者:有点甜
--  发布时间:2014/10/15 20:07:00
--  

  你直接用这个代码有什么问题?不用Locked

 

PrepareEdit

e.Cancel = True \'禁止直接编辑,双击后弹出录入窗口

DataColChanging

If e.DataRow.IsNull("审核") = False Then \'如果审批列不为空

    e.Cancel = True \'则禁止编辑

End If


--  作者:有点甜
--  发布时间:2014/10/15 20:08:00
--  
 如果你用locked,可以单独做一个解锁按钮,先解锁,然后审核赋值为nothing
--  作者:shiliwhy_91641
--  发布时间:2014/10/15 20:16:00
--  
能否给我一个完整的代码,谢谢甜甜老师啊!搞了一天不能实现
--  作者:有点甜
--  发布时间:2014/10/15 20:17:00
--  

 做一个按钮,不会做,就把例子上传。

 

某行.Locked = False

某行("审核") = nothing

 


--  作者:shiliwhy_91641
--  发布时间:2014/10/15 20:17:00
--  
使用以上的代码进入窗口录入界面后还是能够输入?