主题：[求助]这个“统计分析”按钮公式要怎样写？

egd文件下载
各位易表的老师们：我用了一段时间易表，现在又遇到了一个难处，请各位给贤师给帮帮看啊，这里先谢谢了。以上表2我现在是用人工填写的统计分析结果，但在实际工作表中，数据量非常大。
前提说明：表2数据来源依据于表1

问题如下：
1、在表2有一个窗体按钮“统计分析”，现在我要用“统计分析”这个按钮来实现表2的统计分析结果，这个按钮的公式要怎样写啊？？？？？

egd文件下载

谢谢wjq1072 老师，您太历害啦，效果是达到了，但我在应用中是用SubtotalFill()公式生成的统计表，不知能不能与此混用？如能亲临指导，那就更好了，到中国凤凰来我会为您免费导游。

我试了，统计后运行变慢了。有运行快的做法吗？

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/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(".")

非常谢谢！