主题：[求助]关于根据分数自动划分的问题请教

我制作了一个录入窗口，里面的成绩这个文本框中手动输入分数，那么我想根据输入的分数，后面的等级的文本框中自动根据前面的成绩按照90以上优秀，60-89及格，60以下不及格，直接显示出优秀或及格或不及格，请教在哪里如何写代码？？？

老师，我用这个代码写入了事件可是没有反应啊？？

我写入的代码如下：

 

 

 

还有一个问题，我想根据上边说到的那个等级数据列内容，绘制单元格的字体样式，自定义样式已经设置好了，可是下面这个代码好像有问题，一新增数据就出错关闭，请问如何修改？？

If e.Col.Name = "等级" Then
    If e.Row(e.Col.Name) <> "优秀" Then
        e.style = "优秀"

    ElseIf e.Row(e.Col.Name) <> "及格" Then
        e.style = "及格"

    ElseIf e.Row(e.Col.Name) <> "不及格" Then
        e.style = "不及格"
    End If
End If

就是说现在一点“录入信息”按钮后，应该打开录入窗口，不仅窗口没有打开，整个程序自动关闭了

蓝老师，现在我这个窗口一点开就是直接关闭整个程序，都没有错误提示。

 

而且我需要的不是说成绩框中输入成绩自动按照优秀等输入，而是“等级”这个文本框根据前面的“成绩”这个文本框中输入的成绩自动填入“优秀”等等级别。

 

 

 

上面这个代码肯定有问题

我实在是找不出哪个地方的代码出现错误了，这样，如果我直接从表格中进行录入，不用窗口的方式录入，在表格中的成绩列（整数型）填入成绩后，后面的等级列（字符型）直接根据前面的成绩自动填入“优秀”等级别，如何写代码呢？？

终于找到问题出在哪了，是我想在新增数据的时候在表A中的年份列自动输入当前年份，月份列自动输入当前月份这个代码不对，请教老师如何写这两个代码？？？谢谢

老师，我想在数据表的

dr("年度") = d.Year

这个自动输入的年份后面自动加入“年”这个字，例如“2016年”，请问上面这个代码怎么加？？

谢谢老师