Foxtable(狐表)用户栏目专家坐堂 → 多值字段统计问题


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

主题:多值字段统计问题

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/10/22 16:19:00 [显示全部帖子]

 这样弄,如下,虽然效率不高,但,是最简便的方法。

Select Case e.DataCol.Name
    Case "职称执业资格"
        Dim Filter As String = "(职称 Like '*/" & e.NewValue & "/*' or 职称 like '" & e.NewValue & "/*' or 职称 like '*/" & e.NewValue & "')"
        e.DataRow("总人数") = DataTables("员工档案").Compute("Count(_Identify)", Filter)
        e.DataRow("男") = DataTables("员工档案").Compute("Count(_Identify)", "性别 = '男' And " & Filter)
        e.DataRow("女") = DataTables("员工档案").Compute("Count(_Identify)", "性别 = '女' And " & Filter)
        e.DataRow("年龄_25岁以下") = DataTables("员工档案").Compute("Count(_Identify)", "年龄 <= 25 And " & Filter)
        e.DataRow("年龄_26岁至30岁") = DataTables("员工档案").Compute("Count(_Identify)", "年龄 >= 26 And 年龄 <= 30 And " & Filter)
        e.DataRow("年龄_31岁至35岁") = DataTables("员工档案").Compute("Count(_Identify)", "年龄 >= 31 And 年龄 <= 35 And " & Filter)
        e.DataRow("学历_博士") = DataTables("员工档案").Compute("Count(_Identify)", "最终学历 = '博士' And " & Filter)
        e.DataRow("学历_硕士") = DataTables("员工档案").Compute("Count(_Identify)", "最终学历 = '硕士' And " & Filter)
        e.DataRow("学历_本科") = DataTables("员工档案").Compute("Count(_Identify)", "最终学历 = '本科' And " & Filter)
End Select
[此贴子已经被作者于2012-10-22 16:23:51编辑过]

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/10/22 18:05:00 [显示全部帖子]

以下是引用douglas738888在2012-10-22 16:33:00的发言:

职称 Like '*/" & e.NewValue & "/*' or 职称 like '" & e.NewValue & "/*' or 职称 like '*/" & e.NewValue & "

这一组代码不太明白,需要老师给解释下下


你的 职称 列的形式是 x/y/z/xx/yy/zz/xxx

比如,你选中的是 xx ,那么,如果要从中区别出来,就必须这样筛选

 xx 像 /xx/ 一样
 或者
 xx 像 /×x 一样
 或者
 xx 像 xx/ 一样


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/10/23 9:23:00 [显示全部帖子]

 嗯嗯,对于单个证书的我没有考虑。

 或者像你写的,或者 职称 = '" & e.NewValue & " '

 回到顶部