以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  [求助]这个“统计分析”按钮公式要怎样写？  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=2111)
--  作者：楚风
--  发布时间：2011/8/9 2:02:00
--  [求助]这个“统计分析”按钮公式要怎样写？
egd文件下载
各位易表的老师们：我用了一段时间易表，现在又遇到了一个难处，请各位给贤师给帮帮看啊，这里先谢谢了。以上表2我现在是用人工填写的统计分析结果，但在实际工作表中，数据量非常大。
前提说明：表2数据来源依据于表1

问题如下：
1、在表2有一个窗体按钮“统计分析”，现在我要用“统计分析”这个按钮来实现表2的统计分析结果，这个按钮的公式要怎样写啊？？？？？
--  作者：wjq1072
--  发布时间：2011/8/9 8:01:00
--  
egd文件下载
--  作者：楚风
--  发布时间：2011/8/11 0:20:00
--  
谢谢wjq1072 老师，您太历害啦，效果是达到了，但我在应用中是用SubtotalFill()公式生成的统计表，不知能不能与此混用？如能亲临指导，那就更好了，到中国凤凰来我会为您免费导游。
--  作者：楚风
--  发布时间：2011/8/11 22:49:00
--  
我试了，统计后运行变慢了。有运行快的做法吗？
--  作者：don
--  发布时间：2011/8/11 23:49:00
--  
SubtotalFill("表1","村","號碼,第四列,面積","4,4,2") And RenameCol("號碼","記錄數") And RenameCol("第四列","不重复記錄數") And DelRow(Grid,Rows) And EvalFor(Grid,3,"Len(ListFor(""表1"",""號碼"",""村"",[村],1))-Len(Substitute(ListFor(""表1"",""號碼"",""村"",[村],1),""|"",""""))+1")
--  作者：don
--  发布时间：2011/8/12 0:13:00
--  
[这个贴子最后由don在 2011/08/12 08:53am 第 1 次编辑]

还可这样:

CreateGrid(".","A",0) And EvalFor(Grids,1,"If(eval(""SubtotalFill(""""表1"""",""""""+Substitute(ListCols(""表1""),""|"","","")+"""""",1,4)""),[村],[村])",1,1) And DelReptRows(Grids,"村","號碼") And EvalFor(Grids,1,"If(SubtotalFill(Grids,""村"",""號碼"",""4""),[村],[村])",1,1) And SubtotalFill("表1","村","號碼,第四列,面積","4,4,2") And RenameCol("號碼","記錄數") And RenameCol("第四列","不重复記錄數") And DelRow(Grid,Rows) And EvalFor(Grid,3,"cell( row,2,grids)") And SetColWidth(3,100)And RemoveGrid(".")

--  作者：楚风
--  发布时间：2011/8/15 14:07:00
--  
非常谢谢！