主题：设计人事系统

做一个人员表不就好了？加一个列【离职时间】，然后需要的时候直接统计人员表即可。

分别统计各个值 【员工离职率=某一时间段某一群体当月离职人数/（某段时间某一群体最初在职人数+此期间新进人数）×100%】

 

当月的条件这样写

 

Dim d As Date = Date.Today

d = New Date(d.year, d.month, 1)

Dim Filter As String = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"

 

当月离职数，如

 

Dim d As Date = Date.Today

d = New Date(d.year, d.month, 1)

Dim Filter As String = "离职时间 >= #" & d & "# and 离职时间 < #" & d.AddMonths(1) & "#"

Dim Count = DataTables("表A").Compute("count(姓名)", filter)

 

月初在职数，如

 

Dim d As Date = Date.Today

d = New Date(d.year, d.month, 1)

Dim Filter As String = "离职时间 is null and 入职时间 < #" & d & "#"

Dim Count = DataTables("表A").Compute("count(姓名)", filter)

 

本月新增数，如

 

Dim d As Date = Date.Today

d = New Date(d.year, d.month, 1)

Dim Filter As String = "入职时间 >= #" & d & "# and 入职时间 < #" & d.AddMonths(1) & "#"

Dim Count = DataTables("表A").Compute("count(姓名)", filter)

 

做一个按钮，然后计算，然后赋值到你需要的地方。

 

上传具体项目测试。

1、填入地区、部门

 

2、执行下面代码

 

Dim dr As DataRow = Tables("人事统计表").current.DataRow '计算当前行
Dim dt As DataTable = DataTables("人事明细表")
Dim str As String = "地区='" & dr("地区") & "' and 部门='" & dr("部门") & "'"
Dim d As Date = Date.Today  '当月情况
d = New Date(d.year, d.month, 1)
Dim Filter As String = "离职时间 is null and 入职时间 < #" & d & "# and " & str
Dim Count = dt.Compute("count(姓名)", filter)
dr("一月_期初数") = count
filter  =  "入职时间 >= #" & d & "# and 入职时间 < #" & d.AddMonths(1) & "# and " & str
count = dt.Compute("count(姓名)", filter)
dr("一月_入职数") = count
 
3、类似例子 http://www.foxtable.com/webhelp/scr/0681.htm