狐狸爸爸，我是开发版用户，现在有个员工划分等级的问题 逻辑条件没有弄清楚 不知道该怎么办，特来请教 希望您能不吝赐教
我表中有的字段有【开始时间】、【结束时间】、【奖惩类型】、【当年绩效分数】
五等员工的条件 有 1、入职时间不满6个月且【奖惩类型】是（警告、再次警告、三次警告）的员工；2、其他的入职时间不满3个月且【奖惩类型】=‘无’的员工;3、一年之内收到过‘三次警告’二次以上的员工

四等员工：入职时间不满6个月的且入职时间不满【应履职时间】（应履职时间其实就是上面的【结束时间】-【开始时间】）的五分之一的员工。

三等员工：入职时间满6个月以上且实际入职时间（实际入职时间就是【今天】-【开始时间】）为应履职时间的五分之一以上，且【当年绩效分数】在30分以上的员工

二等员工：实际入职时间为应履职时间的二分之一以上，【当年绩效分数】为40分以上员工

一等员工：实际入职时间为应履职时间的五分之三以上，【当年绩效分数】为50分以上的员工

以上所有员工 如果受到过【奖惩类型】是“警告”“再次警告”“严重警告”的等级自动下降一级

各位大哥 这个逻辑关系要怎么弄啊  我用的是 IF ELSE IF   等语句做的 总是不对  希望大家可以帮我弄一个
我的数据库太大 且 麻烦  所以我无法上传实例  希望大家可以理解一下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

我原来就是用IF ELSEIF 编写的  关键就是 总是不准确 你帮我写一个 根据我上面的 条件  我看看 我的错在那里啦

是不是这样啊？

Dim n,n1 As Integer
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "开始时间","结束时间","奖惩类型"
        n = DateDiff("m", dr("开始时间"), Today)
        n1 = DateDiff("m", dr("开始时间"), dr("结束时间"))
        If dr.IsNull("开始时间") = False And dr.IsNull("结束时间") = False
            If n < 6 And dr("奖惩类型").Contains("警告")
                dr("员工等级") = "五等员工"
            End If
            If n < 6 And n < (n1 / 5 )
                dr("员工等级") = "四等员工"
            End If
            If n >= 6 And n > (n1 / 5 ) And dr("当年绩效分数") > 30
                dr("员工等级") = "三等员工"
            End If
            If n > (n1 / 2 ) And dr("当年绩效分数") > 40
                dr("员工等级") = "二等员工"
            End If
            If n > (n1 / 5 * 3 ) And dr("当年绩效分数") > 50
                dr("员工等级") = "一等员工"
            End If
        End If
End Select