- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 设计人事系统 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115903)
-- 发布时间：2018/3/16 11:56:00
-- 设计人事系统
因分公司较多，人员进出频繁，想要设计一套人事系统，便于管理和统计各分公司人员，按月度、季度计算人员流失率，如何设计还需老师指点一下。
-- 发布时间：2018/3/16 12:06:00
--
做一个人员表不就好了？加一个列【离职时间】，然后需要的时候直接统计人员表即可。
-- 发布时间：2018/3/16 12:41:00
--
此主题相关图片如下：qq截图20180316122939.jpg
。
-- 发布时间：2018/3/16 13:34:00
--
-- 发布时间：2018/3/16 14:17:00
--
分别统计各个值 【员工离职率=某一时间段某一群体当月离职人数/（某段时间某一群体最初在职人数+此期间新进人数）×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)
-- 发布时间：2018/3/16 15:26:00
--
甜老师，要写在表的那个事件中？
-- 发布时间：2018/3/16 15:35:00
--
甜老师，要写在表的那个事件中？
做一个按钮，然后计算，然后赋值到你需要的地方。
-- 发布时间：2018/6/14 14:26:00
--
甜老师 人事这个一直没有能够做出来。还是要请教下您，在
此主题相关图片如下：qq截图20180614142000.jpg
统计表中，如何在人事明细表中按照 “地区” “单位” 筛选统计相关的数据，表达式确实写不出来，希望能获得您的帮助。
-- 发布时间：2018/6/14 15:05:00
--
自己顶一下
-- 发布时间：2018/6/14 15:25:00
--
自己顶一下
上传具体项目测试。