Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:关于统计个数及总数,谢谢帮助!

1楼
woodiy 发表于:2009/1/23 15:55:00

图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看


不用表达式如何设置上面的两个公式,谢谢!

1. 统计个数!
2.统计总数!
2楼
菜鸟foxtable 发表于:2009/1/23 17:04:00
总数是看明白了,个数没看明白.可以学习一下帮助里开发篇的统计章节

手工编码进行统计


 

'生成统计表
Dim
dtb As New DataTableBuilder("统计")
dtb.AddDef(
"产品", GetType(String), 32)
dtb.AddDef(
"数量", GetType(Integer))
dtb.AddDef(
"金额", GetType(Double))
dtb.Build()

'填充数据

dim
f As New Filler
f.SourceTable =
DataTables("订单")
f.SourceCols =
"产品"
f.
DataTable = DataTables("统计")
f.DataCols =
"产品"
f.Fill()

'统计

For Each
dr As Datarow In DataTables("统计").DataRows
    dr(
"数量") = DataTables("订单").Compute("Sum(数量)","[产品] = '" & dr("产品") & "'")
    dr(
"金额") = DataTables("订单").Compute("Sum(金额)","[产品] = '" & dr("产品") & "'")
Next
MainTable
= Tables("统计"
)

当然,上面的代码如果改用GroupTableBuilder来实现。要容易很多。
之所以提供这样的例子,是为了让你知道,其实你有更多的选择,这样面对一些复杂的统计要求,你也能应付自如。

[此贴子已经被作者于2009-1-23 17:06:17编辑过]
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01953 s, 2 queries.