Foxtable(狐表)用户栏目专家坐堂 → [求助]数组值作为判定条件如何实现


  共有1357人关注过本帖树形打印复制链接

主题:[求助]数组值作为判定条件如何实现

帅哥哟,离线,有人找我吗?
dixiaxiaodan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:234 积分:2062 威望:0 精华:0 注册:2015/11/7 21:11:00
[求助]数组值作为判定条件如何实现  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:234 积分:2062 威望:0 精华:0 注册:2015/11/7 21:11:00
  发帖心情 Post By:2017/5/20 13:22:00 [只看该作者]

谢谢!

 回到顶部