以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]锁定  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55902)
--  作者：风声
--  发布时间：2014/8/25 19:41:00
--  [求助]锁定
 

Select Case e.Col.Name

                    Case "结欠_付款金额","结欠_欠款金额"

                        If e.Row("初审") = True Then

                            e.Cancel = True

                        End If

                End Select

老师，上面代码是手工打勾禁止编辑指定的列。现在我想改成，当"结欠_欠款金额"列发生变化后自动打勾并锁指定的列。
--  作者：有点甜
--  发布时间：2014/8/25 19:50:00
--  

Select Case e.Col.Name
   
    Case "结欠_付款金额","结欠_欠款金额"
       
        If e.Row.isnull("结欠_欠款金额") = False Then
            e.cancel = True
        End If
       
End Select
--  作者：风声
--  发布时间：2014/8/25 20:15:00
--  
老师，我希望初审列打钩
--  作者：有点甜
--  发布时间：2014/8/25 20:17:00
--  
以下是引用风声在2014-8-25 20:15:00的发言：
老师，我希望初审列打钩

 

datacolchanged事件

 

Select Case e.DataCol.Name
   
    Case "结欠_欠款金额"
       
        e.DataRow("初审") = True
       
End Select
--  作者：风声
--  发布时间：2014/8/25 20:44:00
--  
老师，怎样解除禁止编辑
--  作者：有点甜
--  发布时间：2014/8/25 20:46:00
--  
 如果用你原来的代码，解除锁定，就把 初审 取消勾选
--  作者：风声
--  发布时间：2014/8/25 20:54:00
--  
就用老师你写的代码然后来解除禁止编辑
--  作者：有点甜
--  发布时间：2014/8/25 20:56:00
--  
以下是引用风声在2014-8-25 20:54:00的发言：
就用老师你写的代码然后来解除禁止编辑

 

单独做一个按钮写入代码

 

Tables("表A").Current("结欠_欠款金额") = Nothing
--  作者：风声
--  发布时间：2014/8/25 21:50:00
--  
谢谢老师