Foxtable(狐表)用户栏目专家坐堂 → [原创]


  共有4375人关注过本帖树形打印复制链接

主题:[原创]

帅哥哟,离线,有人找我吗?
mondayboy2019
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:220 威望:0 精华:0 注册:2019/8/5 16:06:00
[原创]  发帖心情 Post By:2019/8/27 14:10:00 [显示全部帖子]

图片点击可在新窗口打开查看

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

 回到顶部
帅哥哟,离线,有人找我吗?
mondayboy2019
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:220 威望:0 精华:0 注册:2019/8/5 16:06:00
  发帖心情 Post By:2019/8/27 14:21:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
mondayboy2019
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:220 威望:0 精华:0 注册:2019/8/5 16:06:00
  发帖心情 Post By:2019/8/27 15:02:00 [显示全部帖子]

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


 回到顶部
帅哥哟,离线,有人找我吗?
mondayboy2019
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:220 威望:0 精华:0 注册:2019/8/5 16:06:00
  发帖心情 Post By:2019/8/27 15:06:00 [显示全部帖子]

麻烦版主看看


 回到顶部
帅哥哟,离线,有人找我吗?
mondayboy2019
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:220 威望:0 精华:0 注册:2019/8/5 16:06:00
  发帖心情 Post By:2019/8/27 15:30:00 [显示全部帖子]

麻烦版主看看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


 回到顶部
帅哥哟,离线,有人找我吗?
mondayboy2019
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:220 威望:0 精华:0 注册:2019/8/5 16:06:00
  发帖心情 Post By:2019/8/27 16:31:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
mondayboy2019
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:220 威望:0 精华:0 注册:2019/8/5 16:06:00
  发帖心情 Post By:2019/8/28 8:52:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
mondayboy2019
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:220 威望:0 精华:0 注册:2019/8/5 16:06:00
  发帖心情 Post By:2019/8/28 11:48:00 [显示全部帖子]

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
        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
‘-----------------------------------以上为统计实配领导正副职------------------------------
    Next
End If

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

 回到顶部
帅哥哟,离线,有人找我吗?
mondayboy2019
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:220 威望:0 精华:0 注册:2019/8/5 16:06:00
  发帖心情 Post By:2019/8/28 12:24:00 [显示全部帖子]

太感谢了,问题解决了!

 回到顶部