主题：设计人事系统

因分公司较多，人员进出频繁，想要设计一套人事系统，便于管理和统计各分公司人员，按月度、季度计算人员流失率，如何设计还需老师指点一下。

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

分别统计各个值 【员工离职率=某一时间段某一群体当月离职人数/（某段时间某一群体最初在职人数+此期间新进人数）×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)

甜老师，要写在表的那个事件中？

 

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

甜老师 人事这个一直没有能够做出来。还是要请教下您，在
此主题相关图片如下：qq截图20180614142000.jpg

统计表中，如何在人事明细表中按照 “地区”   “单位”   筛选统计相关的数据，表达式确实写不出来，希望能获得您的帮助。

自己顶一下 

 

上传具体项目测试。