Foxtable(狐表)用户栏目专家坐堂 → 行内分别统计的问题


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

主题:行内分别统计的问题

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


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
行内分别统计的问题  发帖心情 Post By:2017/6/13 9:23:00 [只看该作者]

请教老师,下面代码,怎样实现,在一行里面,如果“项目编号”和“岗位层级”发生变量,根据变量对应的“**_小计”只呈现该变量的统计值,其他小计不统计或不显示值。

 

我试用elseif多支来写不能实现,else单支又只能控制不是或就是         特请教老师

 

If e.DataCol.Name = "项目编号" Then '发生变化的是"项目编号"列.
    If e.DataRow("岗位层级") = "高层正职" AndAlso e.DataRow("岗位层级") = "高层副职" Then
        e.DataRow("高管任务因子_小计") = DataTables("个人明细").SQLCompute("Sum(任务_计量)","[项目编号] = '" & e.NewValue & "'and 岗位层级 Like '%高层%'")
    End If
   
If e.DataCol.Name = "项目编号" Then '发生变化的是"项目编号"列.
     If e.DataRow("岗位层级") = "中层正职" AndAlso e.DataRow("岗位层级") = "中层副职" Then
        e.DataRow("中层任务因子_小计") = DataTables("个人明细").SQLCompute("Sum(任务_计量)","[项目编号] = '" & e.NewValue & "'and 岗位层级 Like '%中层%'")
   End If
End If
       
If e.DataCol.Name = "项目编号" Then '发生变化的是"项目编号"列.
   If e.DataRow("岗位层级") = "基层人员" Then
      e.DataRow("基层任务因子_小计") = DataTables("个人明细").SQLCompute("Sum(任务_计量)","[项目编号] = '" & e.NewValue & "'and 岗位层级 Like '%基层%'")
   End If
End If

[此贴子已经被作者于2017/6/13 9:23:30编辑过]

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/13 10:22:00 [只看该作者]

If e.DataCol.Name = "项目编号" OrElse e.DataCol.name = "岗位层级" Then '发生变化的是"项目编号"列.
    e.DataRow("中层任务因子_小计") = Nothing
    e.DataRow("高管任务因子_小计") = Nothing
    e.DataRow("基层任务因子_小计") = Nothing
    If e.DataRow("岗位层级") = "高层正职" OrElse e.DataRow("岗位层级") = "高层副职" Then
        e.DataRow("高管任务因子_小计") = DataTables("个人明细").SQLCompute("Sum(任务_计量)","[项目编号] = '" & e.datarow("项目编号") & "'and 岗位层级 Like '%高层%'")
    ElseIf e.DataRow("岗位层级") = "中层正职" OrElse e.DataRow("岗位层级") = "中层副职" Then
        e.DataRow("中层任务因子_小计") = DataTables("个人明细").SQLCompute("Sum(任务_计量)","[项目编号] = '" & e.datarow("项目编号") & "'and 岗位层级 Like '%中层%'")
    ElseIf e.DataRow("岗位层级") = "基层人员" Then
        e.DataRow("基层任务因子_小计") = DataTables("个人明细").SQLCompute("Sum(任务_计量)","[项目编号] = '" & e.datarow("项目编号") & "'and 岗位层级 Like '%基层%'")
    End If
End If
[此贴子已经被作者于2017/6/13 10:23:18编辑过]

 回到顶部