代码应该是:
If e.DataTableName = "医学普刊" Select Case e.User.Name Case "咨询","售后","合作","网络" e.Filter = "[审核] = True" End SelectEnd If