Foxtable(狐表)用户栏目专家坐堂 → [求助]如何进行隐藏列的计算?


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

主题:[求助]如何进行隐藏列的计算?

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


加好友 发短信
等级:五尾狐 帖子:1095 积分:8440 威望:0 精华:0 注册:2012/7/10 9:09:00
[求助]如何进行隐藏列的计算?  发帖心情 Post By:2018/3/8 9:11:00 [只看该作者]

列:季度含(第一季度,第二季度,第三季度,第四季度),在季度列选择如:第一季度时,在月考核奖金列自动显示1、2、3个月列,其他列隐藏,这时,在季度合计中计算三个月的数据,当选择第二季度时,在月考核奖金列自动显示4、5、6个月列,其他列隐藏,在季度合计中计算三个月的数据;依次类推,当季度列无选择时(也就是空)季度合计列应为空。下述代码能计算选择时的季度合计,但选择季度列为空时,季度合计列不清空,请帮助改一下代码,谢谢。

Select Case e.DataCol.Name
    Case "月考核奖金_1","月考核奖金_2","月考核奖金_3","月考核奖金_4","月考核奖金_5","月考核奖金_6","月考核奖金_7","月考核奖金_8","月考核奖金_9","月考核奖金_10","月考核奖金_11","月考核奖金_12"
        Dim cls() As String = {"月考核奖金_1","月考核奖金_2","月考核奖金_3","月考核奖金_4","月考核奖金_5","月考核奖金_6","月考核奖金_7","月考核奖金_8","月考核奖金_9","月考核奖金_10","月考核奖金_11","月考核奖金_12"}
        Dim t As Table = Tables(e.DataTable.Name)
        Dim sum As Integer = 0
        For Each c As String In cls
            If e.DataRow("季度") = Nothing  Then
                 e.DataRow("季度合计") = 0
            ElseIf t.Cols(c).Visible AndAlso  e.DataRow("季度") <> Nothing  Then
                sum += e.DataRow(c)
            End If
        Next
        e.DataRow("季度合计") = sum
End Select


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/8 10:24:00 [只看该作者]

代码应该没问题的。当你季度为nothing的时候,赋值为0的。

 

你现在修改季度列,季度合计列如何变化的?如果有问题,应该是其它代码影响了。


 回到顶部