Foxtable(狐表)用户栏目专家坐堂 → [求助]统计错误


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

主题:[求助]统计错误

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


加好友 发短信
等级:小狐 帖子:322 积分:3195 威望:0 精华:0 注册:2014/8/20 20:14:00
[求助]统计错误  发帖心情 Post By:2018/4/16 14:49:00 [只看该作者]


    If e.Node.Text <> "" Then
        Select Case e.Node.Level
            Case 0
                Filter = "[日期_年] = '" & dr("日期_年") & "'"
            Case 1
                Filter = "[日期_年] = '" & dr("日期_年") & "' And [日期_月] = '" & dr("日期_月") & "'"
            Case 2
                Filter = "[日期_年] = '" & dr("日期_年") & "' And [日期_月] = '" & dr("日期_月") & "' And [员工_姓名] = '" & dr("员工_姓名") & "'"
        End Select
    End If
 
   
x.Text=Tables("抽成_ftb_choucheng").Compute("Sum(抽成金额)", &  filter

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


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

x.Text=Tables("抽成_ftb_choucheng").Compute("Sum(抽成金额)", filter)

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


加好友 发短信
等级:小狐 帖子:322 积分:3195 威望:0 精华:0 注册:2014/8/20 20:14:00
  发帖心情 Post By:2018/4/16 15:24:00 [只看该作者]

以下是引用有点甜在2018/4/16 15:07:00的发言:
x.Text=Tables("抽成_ftb_choucheng").Compute("Sum(抽成金额)", filter)

为什么有时计算会对,有时不计算呢

NodeMouseClick

 

Dim X As  WinForm.Label= e.Form.Controls("Label1")

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If riqi.Checked=True Then
    If e.Node.Text <> "" Then
        Select Case e.Node.Level
            Case 0
                Filter = "[日期_年] = '" & dr("日期_年") & "'"
            Case 1
                Filter = "[日期_年] = '" & dr("日期_年") & "' And [日期_月] = '" & dr("日期_月") & "'"
            Case 2
                Filter = "[日期_年] = '" & dr("日期_年") & "' And [日期_月] = '" & dr("日期_月") & "' And [员工_姓名] = '" & dr("员工_姓名") & "'"
        End Select
    End If   
   
Else
    If e.Node.Text <> "" Then
        Select Case e.Node.Level
            Case 0
                Filter = "[员工_姓名] = '" & dr("员工_姓名") & "'"
            Case 1
                Filter = "[员工_姓名] = '" & dr("员工_姓名") & "' And [日期_年] = '" & dr("日期_年") & "'"
            Case 2
                Filter = "[员工_姓名] = '" & dr("员工_姓名") & "' And [日期_年] = '" & dr("日期_年") & "' And [日期_月] = '" & dr("日期_月") & "'"
        End Select
    End If
End If
x.Text=Tables("抽成_ftb_choucheng").Compute("Sum(抽成金额)",Filter )
Tables("抽成_ftb_choucheng").Filter = Filter


图片点击可在新窗口打开查看此主题相关图片如下:003g.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/4/16 15:26:47编辑过]

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


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

改成

 

Tables("抽成_ftb_choucheng").Filter = Filter

x.Text=Tables("抽成_ftb_choucheng").Compute("Sum(抽成金额)",Filter)


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


加好友 发短信
等级:小狐 帖子:322 积分:3195 威望:0 精华:0 注册:2014/8/20 20:14:00
  发帖心情 Post By:2018/4/16 15:29:00 [只看该作者]

以下是引用有点甜在2018/4/16 15:26:00的发言:

改成

 

Tables("抽成_ftb_choucheng").Filter = Filter

x.Text=Tables("抽成_ftb_choucheng").Compute("Sum(抽成金额)",Filter)

现在ok了,为什么,不是一样吗

 


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


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

你改成这样也行

 

x.Text=Tables("抽成_ftb_choucheng").DataTable.Compute("Sum(抽成金额)",Filter)

 

改成这样也行

 

Tables("抽成_ftb_choucheng").Filter = Filter

x.Text=Tables("抽成_ftb_choucheng").Compute("Sum(抽成金额)")


Tables的Compute,是对筛选出来的数据进行统计的;DataTables的Compute才是对全部数据统计的


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


加好友 发短信
等级:小狐 帖子:322 积分:3195 威望:0 精华:0 注册:2014/8/20 20:14:00
  发帖心情 Post By:2018/4/16 15:40:00 [只看该作者]

以下是引用有点甜在2018/4/16 15:32:00的发言:

你改成这样也行

 

x.Text=Tables("抽成_ftb_choucheng").DataTable.Compute("Sum(抽成金额)",Filter)

 

改成这样也行

 

Tables("抽成_ftb_choucheng").Filter = Filter

x.Text=Tables("抽成_ftb_choucheng").Compute("Sum(抽成金额)")


Tables的Compute,是对筛选出来的数据进行统计的;DataTables的Compute才是对全部数据统计的

明白了,谢谢


 回到顶部