Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有条件汇总代码


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

主题：有条件汇总代码
帅哥哟，离线，有人找我吗？
nbsugu_z
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：411 积分：3698 威望：0 精华：0 注册：2017/4/8 8:59:00 		有条件汇总代码  发帖心情 Post By：2020/7/14 14:08:00 [只看该作者]

Select Case e.DataCol.Name
    Case "xsbh"
If e.DataCol.Name = "xsbh" Then
    Dim Filter As String = "[xsbh] = '" & e.NewValue & "' and [pm]<>'运费1'"
    Dim Filter1 As String = "[xsbh] = '" & e.NewValue & "'"
    e.DataRow("zsl") = DataTables("xsdmx").Compute("Sum(sl)", Filter)    ’总数量只汇总 PM不等于“运费1”的
    e.DataRow("zjs") = DataTables("xsdmx").Compute("Sum(js)", Filter)   '总件数只汇总 PM不等于“运费1”的
    e.DataRow("zje") = DataTables("xsdmx").Compute("Sum(je)", Filter1)   '总金额全部汇总
   End If
End Select

老师，子表汇总代码如何修改能达到我要求：我要增加一个“运费2”的品名（PM）。要求是 金额全部汇总，数量和件数只汇总除品名运费1和运费2外的.
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/14 14:19:00 [只看该作者]

Select Case e.DataCol.Name
    Case "xsbh"
    Dim Filter As String = "[xsbh] = '" & e.NewValue & "' and [pm]<>'运费1'"
    Dim Filter1 As String = "[xsbh] = '" & e.NewValue & "'"
    e.DataRow("zsl") = DataTables("xsdmx").Compute("Sum(sl)", Filter)    ’总数量只汇总 PM不等于“运费1”的
    e.DataRow("zjs") = DataTables("xsdmx").Compute("Sum(js)", Filter)   '总件数只汇总 PM不等于“运费1”的
    e.DataRow("zje") = DataTables("xsdmx").Compute("Sum(je)", Filter1)   '总金额全部汇总
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
nbsugu_z
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：411 积分：3698 威望：0 精华：0 注册：2017/4/8 8:59:00 		  发帖心情 Post By：2020/7/14 14:41:00 [只看该作者]

老师，这不跟我原来一样嘛。我是要数量和件数的汇总剔除运费1和运费2的。金额是全部汇总的

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/14 15:01:00 [只看该作者]

代码没有问题。关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。

 回到顶部
帅哥哟，离线，有人找我吗？
nbsugu_z
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：411 积分：3698 威望：0 精华：0 注册：2017/4/8 8:59:00 		  发帖心情 Post By：2020/7/14 15:18:00 [只看该作者]

Select Case e.DataCol.Name
    Case "xsbh"
    Dim Filter As String = "[xsbh] = '" & e.NewValue & "' and [pm]<>'运费1'"     如何加上同时运费2条件？？？？
    Dim Filter1 As String = "[xsbh] = '" & e.NewValue & "'"
    e.DataRow("zsl") = DataTables("xsdmx").Compute("Sum(sl)", Filter)    ’总数量只汇总 PM不等于“运费1”和“运费2”的
    e.DataRow("zjs") = DataTables("xsdmx").Compute("Sum(js)", Filter)   '总件数只汇总 PM不等于“运费1”和运费2“的。
    e.DataRow("zje") = DataTables("xsdmx").Compute("Sum(je)", Filter1)   '总金额全部汇总
End Select

老师，我要加是的是：运费2 和运费1 为条件的，可能我表达不清楚

[此贴子已经被作者于2020/7/14 15:20:11编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/14 15:22:00 [只看该作者]

Dim Filter As String = "[xsbh] = '" & e.NewValue & "' and [pm] not in ('运费1','运费2')" 

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询