定义了一个数组,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