主题：开发版用户求教

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

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

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

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

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

 

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

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

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

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

 例子已经上传  麻烦您了

不用传项目,传个例子即可.  

BIN 大哥 例子 就是做个这些字段 没实际意义啊 您帮我看下 我改怎么用代码编写就可以

怎么会没有意义呢? 没有数据怎么做测试处理分析呢?  会方便很多比纸上谈兵 凭空想象强多了.

恩 大哥 我已经上传例子了

你原来是怎么写的

我原来就是用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

不过你表中要加个字符型的员工等级列