Select Case e.User.Name
Case "特色"
Select Case e.DataTableName
Case "一览表2015至2019年", "附件1_1","附件1_2","附件1_3","一览表2016至2018年","附件2_1","附件2_2","附件2_3"
e.Cancel = True
End Select
Case "基地"
Select Case e.DataTableName
Case "一览表2016至2018年","附件2_1","附件2_2","附件2_3","附件3_1","附件3_2","附件3_3"
e.Cancel =True
End Select
Case "示范"
Select Case e.DataTableName
Case "一览表2015至2019年", "附件1_1","附件1_2","附件1_3","附件3_1","附件3_2","附件3_3"
e.Cancel = True
End Select
End Select