以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]数组值作为判定条件如何实现  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100890)
--  作者：dixiaxiaodan
--  发布时间：2017/5/20 11:19:00
--  [求助]数组值作为判定条件如何实现
定义了一个数组，Dim AD_Rec() As String = {"接收时间","接收人","评估通知截止时间","评估通知时间","评估通知接收人"}，当修改列的列名为数组中的任一值时，修改取消，这个怎么实现，我下面这代码不行，修改了就卡住不动

Dim AD_Rec() As String = {"接收时间","接收人","评估通知截止时间","评估通知时间","评估通知接收人"}
If User.Name = "指令接收" Then
    For Each Rec As String In AD_Rec 
        For i As Integer = 0 To 4
            If e.DataCol.Name = Rec(i) Then            
           
            Else
               e.Cancel = True 

            End If 
        Next
    Next
msgbox("您只能修改指令接收部分")
End If
--  作者：有点蓝
--  发布时间：2017/5/20 11:25:00
--  
If User.Name = "指令接收" Then
    Select Case e.DataCol.Name
        Case "接收时间","接收人","评估通知截止时间","评估通知时间","评估通知接收人"
            e.Cancel = True
            msgbox("您只能修改指令接收部分")
        Case Else
            \'其它处理
    End Select
End If
--  作者：dixiaxiaodan
--  发布时间：2017/5/20 13:22:00
--  
谢谢！