为什么进不了最近一项呢?
If e.Row("评优资格_结论")="不符合" Then
Select Case e.Col.Name
Case "直接评优_结论","直接评优_理由","师德师风_思想修养_考核记录","能力水平_教学研究_考核记录","能力水平_教学活动_考核记录","能力水平_技能竞赛_考核记录","能力水平_专业成长_考核记录","能力水平_班主任工作_考核记录","出勤工作量_出勤_考核记录","出勤工作量_工作量_考核记录","工作业绩_批评与表扬_考核记录","工作业绩_教学常规_考核记录","工作业绩_听评课_考核记录","工作业绩_教学检测_考核记录","工作业绩_训练辅导_考核记录","工作业绩_中考统测_考核记录","工作业绩_管理工勤人员业绩_考核记录","工作业绩_管理工勤人员常规_考核记录","工作业绩_立岗置守_考核记录","工作业绩_宿管满意度_考核记录","工作业绩_学生教育_考核记录","工作业绩_管理工勤人员测评_考核记录","工作业绩_早晚自习_考核记录","工作业绩_督导评估_考核记录","工作业绩_临时工作_考核记录","工作业绩_宣传稿件_考核记录","廉洁自律_廉洁从教_考核记录","廉洁自律_遵章守规_考核记录","师德师风_学生评教_考核记录"
e.text ="-"
'L列的计算代码
End Select
ElseIf e.Row("直接评优_结论")="是" Then
Select Case e.Col.Name
Case "师德师风_思想修养_考核记录","能力水平_教学研究_考核记录","能力水平_教学活动_考核记录","能力水平_技能竞赛_考核记录","能力水平_专业成长_考核记录","能力水平_班主任工作_考核记录","出勤工作量_出勤_考核记录","出勤工作量_工作量_考核记录","工作业绩_批评与表扬_考核记录","工作业绩_教学常规_考核记录","工作业绩_听评课_考核记录","工作业绩_教学检测_考核记录","工作业绩_训练辅导_考核记录","工作业绩_中考统测_考核记录","工作业绩_管理工勤人员业绩_考核记录","工作业绩_管理工勤人员常规_考核记录","工作业绩_立岗置守_考核记录","工作业绩_宿管满意度_考核记录","工作业绩_学生教育_考核记录","工作业绩_管理工勤人员测评_考核记录","工作业绩_早晚自习_考核记录","工作业绩_督导评估_考核记录","工作业绩_临时工作_考核记录","工作业绩_宣传稿件_考核记录","廉洁自律_廉洁从教_考核记录","廉洁自律_遵章守规_考核记录","师德师风_学生评教_考核记录"
e.text ="-"
'L列的计算代码
End Select
ElseIf e.Row("直接评优_结论")="否" Then
Select Case e.Col.Name
Case "直接评优_理由"
e.text ="-"
'L列的计算代码
End Select
ElseIf e.Row("评优资格_结论")="符合" Then
Select Case e.Col.Name
Case "评优资格_理由"
e.text ="-"
'L列的计算代码
End Select
End If