以文本方式查看主题

-  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=128493)
--  作者：13775189031
--  发布时间：2018/12/8 11:34:00
--  锁定

Select Case e.Col.Name
    Case "探伤要求_VT","探伤要求_PT","探伤要求_MT","探伤要求_UT","探伤要求_RT","探伤要求_备注"
        Dim nms() As String = {"探伤要求_VT","探伤要求_PT","探伤要求_MT","探伤要求_UT","探伤要求_RT","探伤要求_备注"}
        For Each nm As String In nms
            If e.Row("焊接顺序").NotContains("盖面") Then
                e.cancel = True
            End If
        Next
End Select

 

请教：

“焊接顺序”中不包含字符“盖面”，则指定列锁定，要怎么改？
--  作者：有点蓝
--  发布时间：2018/12/8 11:41:00
--  
Select Case e.Col.Name
    Case "探伤要求_VT","探伤要求_PT","探伤要求_MT","探伤要求_UT","探伤要求_RT","探伤要求_备注"
        If e.Row.Isnull("焊接顺序") = False AndAlso e.Row("焊接顺序").Contains("盖面") = False Then
            e.cancel = True
        End If
End Select