[求助]统计相关问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

表结构如下：

日期费别金额返利

06-11 管理费 100 10

06-11 通行费 50 5

代码如下：

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("规费记录"))

Dim dt1 As fxDataSource

bd1.Groups.AddDef("日期")

bd1.Totals.AddDef("金额","管理费")

bd1.Totals.AddDef("返利","代办返利")

bd1.Filter = a+b

dt1 = bd1.BuildDataSource()

希望实现功能：统计出费别为“管理费”的金额总和。就是在 bd1.Totals.AddDef("金额","管理费") 这怎么判断？不会写

http://www.foxtable.com/help/topics/1618.htm

帮助中有.你应该添加一个 bd1.Groups.AddDef("费别")

你看懂我的情况没有哦？我的费别有很多字段，怎么确定是管理费这一列，我只要显示“管理费”的，其他不显示

帮助中有的, 设置一下 b.Filter = "[费别] = '管理费'" 即可

我总不可能这样写嘛：bd1.Groups.AddDef("费别=’管理费‘")。行不通的哇。怎么解？

你统计按钮先执行筛选在统计啊

这是代码，加了Filter后还是不行！统计出来还是2个费用的合计，不是管理费的合计

Dim bb As WinForm.Button = e.Form.Controls("Button2")

Dim tb As WinForm.Table = e.Form.Controls("Table1")

Dim dqq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

Dim dqz As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")

Dim a As String

Dim b As String

a=""

b=""

If CLDate(dqq.Value)<>"一年一月一日"

a="日期>='"+dqq.Value+"'"

End If

If CLDate(dqq.Value)="一年一月一日" And CLDate(dqz.Value)<>"一年一月一日" Then

b="日期<='"+dqz.Value+"'"

End If

If CLDate(dqq.Value)<>"一年一月一日" And CLDate(dqz.Value)<>"一年一月一日" Then

b="and 日期<='"+dqz.Value+"'"

End If

If a <>"" And b <>"" And dqq.Value > dqz.Value

tb.Visible=False

MessageBox.Show("时间填写不对!")

Return

End If

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("规费记录"))

Dim dt1 As fxDataSource

bd1.Filter = "[费别] = '管理费'"

bd1.Groups.AddDef("日期","月")

bd1.Totals.AddDef("金额","管理费")

bd1.Totals.AddDef("返利","代办返利")

dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("公司支出"))

Dim dt2 As fxDataSource

bd2.Groups.AddDef("日期","月")

bd2.Totals.AddDef("金额","营业支出")

dt2 = bd2.BuildDataSource()

dt1.Combine("月",dt2,"月")

Tables("经营报表_Table1").DataSource = dt1

With DataTables("经营报表_Table1").DataCols

.Add("纯利润",Gettype(Double), "IsNull([管理费],0) + IsNull([代办返利],0) - IsNull([营业支出],0)")

End With

For Each r As Row In Tables("经营报表_Table1").Rows

If r.IsNull("月") Then

r.Delete

End If

tb.Visible=True

bb.Enabled=True

你这么多代码看得乱,可能有其他代码影响了.

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("规费记录"))

Dim dt1 As fxDataSource

bd1.Filter = "[费别] = '管理费'"

bd1.Groups.AddDef("日期","月")

bd1.Totals.AddDef("金额","管理费")

bd1.Totals.AddDef("返利","代办返利")

dt1 = bd1.BuildDataSource()

你就直接执行这一段可以饿

实在不行你上例子吧!

主题：[求助]统计相关问题