你可以判断一下:
If User.IsRole("员工") Then
If Tables("monthplan").Cols.Contains("主任评分") Then
Tables("monthplan").Cols.Remove("主任评分")
End If
If Tables("monthplan").Cols.Contains("经理评分") Then
Tables("monthplan").Cols.Remove("经理评分")
End If
If Tables("monthplan").Cols.Contains("综合得分") Then
Tables("monthplan").Cols.Remove("综合得分")
End If
ElseIf User.IsRole("中心主任") Then
If Tables("monthplan").Cols.Contains("经理评分") Then
Tables("monthplan").Cols.Remove("经理评分")
End If
If Tables("monthplan").Cols.Contains("综合得分") Then
Tables("monthplan").Cols.Remove("综合得分")
End If
End If