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

如何能够在“人员信息”表中以“单位”名称统计“职级并行”列中的数据，并把统计数据放到“实有并行”的表中的每一列中。求大侠帮助

感谢版主在百忙之中抽出时间回帖。

这个链接帮助我看了好几遍了，但是一直没有头绪。现在我面临的问题是“人员信息”表中的“职级并行”列下面有好多选项比如“一级调研员、二级调研员等”，我是想统计这个单位下面有多少个“一级调研员或者二级调研员”，并把数据放到“实有并行”这个表下面的每一列中。并且在“人员信息”表发生变化是自动加载统计更新。

导出来的.table文件有点大啊，rar文件没办法上传啊

麻烦版主看看

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

版主用的是哪一个版本的，我这边提示版本过高打不开

感谢版主，问题已解决。我是编程小白，谢谢版主优化加载代码图片点击可在新窗口打开查看

Dim dr As DataRow = e.DataRow

Dim dt As DataTable =DataTables("人员信息")

Dim de As DataTable =DataTables("人员信息")

If e.DataCol.Name = "单位"

For Each dc As DataCol In e.DataTable.DataCols

If dc.Name.StartsWith("实有职级_") Then

Dim cnt As Integer = dt.Compute("Count(姓名)", "单位='" & e.NewValue & "' And 职级并行 = '" & dc.Name.Split("_")(1) & "'")

If cnt > 0 Then

dr(dc.Name) = cnt

End If

‘-----------------------------------以下为统计实配领导正副职------------------------------

If dc.Name.StartsWith("实配职数_") Then

Dim cnt As Integer = de.Compute("Count(姓名)", "单位='" & e.NewValue & "' And 单位正副职 = '" & dc.Name.Split("_")(1) & "'")

If cnt > 0 Then

dr(dc.Name) = cnt

End If

‘-----------------------------------以上为统计实配领导正副职------------------------------

End If

再麻烦问一下，我按照大侠您的代码添加了一点，用来统计实配领导数。但是好像没有反应。（我在“人员信息“表中添加了一列”单位正副职“里面用来存放领导正职和领导副职）

太感谢了，问题解决了！

主题：[原创]