开发版用户求教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

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

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

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

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

例子已经上传麻烦您了

[此贴子已经被作者于2013-8-17 17:04:50编辑过]

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

恩大哥我已经上传例子了

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

以下是引用czy在2013-8-17 18:00:00的发言：

五等员工漏看条件了，现加上一个，最后一个我没办法区别哪些记录是一年之内出现的警告。

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("警告") OrElse n < 3 And dr("奖惩类型") = "无"
                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

你说的那个问题我也不知道该如何解决我有个表B 是通过姓名与表A（就是你现在看到这个表）进行关联的表B的格式是这样的如图所示怎么才能根据当前日期计算当年的分数呢
图片点击可在新窗口打开查看此主题相关图片如下：截图00.png

主题：开发版用户求教