共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：统计下各岗位的人数，看看代码错在哪了
1楼
deliangzhaoe 发表于：2025/3/8 12:02:00想统计一下各岗位的员工人数，有的人不只一个岗位，所以在员工花名册中设计了岗位和其他岗位，其他岗位也在统计范围内。第一个岗位的人数能统计出来，但是其他岗位的数量就是统计不出来了，老师帮我看看代码错在哪了，怎么改？谢谢
此主题相关图片如下：微信截图_20250308115358.png
此主题相关图片如下：微信截图_20250308115337.png
第二表是统计出来的表。
在统计表的datacolchanged代码如下：
'岗位人数计算
Select Case e.DataCol.name
Case "岗位"
Dim r1 As DataRow = DataTables("员工花名册").find("企业名称 = '" & Tables("岗位人数统计").current ("企业名称") & "' And 现所在单位 = '" & Tables("岗位人数统计").current ("部门") & "' And 岗位 = '" & Tables("岗位人数统计").current ("岗位") & "'")
If r1 IsNot Nothing Then
e.DataRow("人数") = DataTables("员工花名册").Compute("count(姓名)","员工状态 = '在岗' and 企业名称 = '" & e.DataRow("企业名称") & "' And 现所在单位 = '" & Tables("岗位人数统计").current ("部门") & "' and 岗位 = '" & e.DataRow("岗位") & "'")
Else
e.DataRow("人数") = "0"
End If
Dim r3 As DataRow = DataTables("岗位人数统计").find("人数 = 0")
If r3 IsNot Nothing Then
r3("人数") = Nothing
End If
Dim r2 As DataRow = DataTables("员工花名册").find("企业名称 = '" & r3("企业名称") & "' And 其他岗位 = '" & r3("岗位") & "'")
If r2 IsNot Nothing Then
r3("人数") = DataTables("员工花名册").Compute("count(姓名)","员工状态 = '在岗' and 企业名称 = '" & r3("企业名称") & "' and 其他岗位 = '" & r3("岗位") & "'")
Else
r3("人数") = "0"
End If
End Select
此主题相关图片如下：微信截图_20250308115358.png第一个表是员工花名册的部分列截图
此主题相关图片如下：微信截图_20250308115337.png第二表是统计出来的表。
请老师帮忙看一下怎么改。谢谢！
2楼
有点蓝 发表于：2025/3/8 14:05:00http://www.foxtable.com/webhelp/topics/2925.htm、http://www.foxtable.com/webhelp/topics/0604.htm
不要搞那么复杂
Select Case e.DataCol.name
Case "岗位"
Dim count As Integer = DataTables("员工花名册").Compute("count(姓名)", "企业名称 = '" & e.DataRow("企业名称") & "' And 现所在单位 = '" & e.DataRow("部门") & "' And (岗位 = '" & e.DataRow("岗位") & "' or 其他岗位 = '" & e.DataRow("岗位") & ")")
If count > 0 Then
e.DataRow("人数") = count
Else
e.DataRow("人数") = Nothing
End If
End Select
3楼
deliangzhaoe 发表于：2025/3/8 15:14:00我水平有限，只能做到这种程度啊。
4楼
deliangzhaoe 发表于：2025/3/8 16:19:00可以了。谢谢蓝老师指点。
Select Case e.DataCol.name
Case "岗位"
Dim count As Integer = DataTables("员工花名册").Compute("count(姓名)", "(企业名称 = '" & e.DataRow("企业名称") & "' And 现所在单位 = '" & e.DataRow("部门") & "' And 岗位 = '" & e.DataRow("岗位") & "' and 其他岗位 is null and 员工状态 = '在岗') or (企业名称 = '" & e.DataRow("企业名称") & "' and 其他岗位 is not null And 其他岗位 = '" & e.DataRow("岗位") & "' and 员工状态 = '在岗')")
If count > = 0 Then
e.DataRow("人数") = count
End If
End Select
共4 条记录, 每页显示 10 条, 页签:
[1]