以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何只统计筛选出来的数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47493)
--  作者：linshibin
--  发布时间：2014/3/11 14:27:00
--  如何只统计筛选出来的数据

下面这个代码会统计所有加载的数据，如何只统计筛选之后的数据

Dim g As New GroupTableBuilder("销售统计表", DataTables("ZiDingDan"))
g.Caption = "销售统计表"
g.Groups.AddDef("BelongUser")
g.Totals.AddDef("ZongJia")
g.Filter = "[BelongTeam] = \'销售部\'"
g.Build()
MainTable = Tables("销售统计表")
--  作者：Bin
--  发布时间：2014/3/11 14:28:00
--  
设置g.Filter= Tables("ZiDingDan").Filter
--  作者：linshibin
--  发布时间：2014/3/11 14:30:00
--  
好的，多谢
--  作者：linshibin
--  发布时间：2014/3/11 14:44:00
--  

g.Filter = "[BelongTeam] = \'销售部\'"

g.Filter= Tables("ZiDingDan").Filter

 

如何把这两个条件合并啊
--  作者：Bin
--  发布时间：2014/3/11 14:52:00
--  
g.Filter= Tables("ZiDingDan").Filter & " and [BelongTeam] = \'销售部\'"
--  作者：linshibin
--  发布时间：2014/3/11 15:03:00
--  
提示and前面缺少操作数
--  作者：狐狸爸爸
--  发布时间：2014/3/11 15:04:00
--  
if Tables("ZiDingDan").Filter  > "" then
    g.Filter= Tables("ZiDingDan").Filter & " and [BelongTeam] = \'销售部\'"
else
    g.Filter= "[BelongTeam] = \'销售部\'"
end if