以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  条件锁定单元格  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109343)

--  作者:蓝蚂蚁
--  发布时间:2017/11/9 19:45:00
--  条件锁定单元格

图片点击可在新窗口打开查看此主题相关图片如下:image 10.jpg
图片点击可在新窗口打开查看

代码思路:
If e.Col.Name = "申请报告" AndAlso e.Row("计划类型") = "专家自带"   Then
    e.Cancel = False
End If
If e.Col.Name = "申请报告" AndAlso e.Row("器材类别") = "全髋" AndAlso  e.Row("配送公司") = "博奥"   Then
    e.Cancel = False
End If
其他情况
    e.Cancel = True
End If
但完整代码是这样写?

--  作者:有点甜
--  发布时间:2017/11/9 19:52:00
--  

If e.Col.Name = "申请报告" AndAlso e.Row("计划类型") = "专家自带"   Then
    e.Cancel = False
    Return
End If
If e.Col.Name = "申请报告" AndAlso e.Row("器材类别") = "全髋" AndAlso  e.Row("配送公司") = "博奥"   Then
    e.Cancel = False
    Return
End If

e.Cancel = True


--  作者:蓝蚂蚁
--  发布时间:2017/11/9 20:11:00
--  
老师这段代码写在什么地方  PrepareEdit和StartEdit都不行,全都锁定了
--  作者:有点甜
--  发布时间:2017/11/9 20:25:00
--  
If e.Col.Name = "申请报告" Then
    If e.Row("计划类型") = "专家自带"   Then
        e.Cancel = False
        Return
    End If
    If e.Row("器材类别") = "全髋" AndAlso  e.Row("配送公司") = "博奥"   Then
        e.Cancel = False
        Return
    End If
   
    e.Cancel = True
End If

--  作者:蓝蚂蚁
--  发布时间:2017/11/9 20:39:00
--  
OK了 谢谢老师