我设计了这样一个对应的表

最后一行还有一个合计行

如果你知道怎么定制Grid，就可以直接显示那个统计表格，否则就自己创建一个临时表，填好数据后再呈现出来。

分类汇总是什么意思。
是对金额求合。这样就不大现实，因为你的收入和支出放在一起的，不可能全部求合。

还是楼主表达错误，需要按月份选出所有的条目？

反正不大明白楼主表达的意思

sele 经手人 as 家庭成员,iif(类别='折取',sum(金额),0) as 折取,iif(类别='转存',sum(金额),0) as 转存,………… from 表 group  by 经手人

省略号代表你要显示的字段。参照家庭成员，折取，和转存的表达式求和。

[ 本帖最后由 wjp456789 于 2012-11-11 11:18 编辑 ]

分组汇总
SELECT LEFT(DTOS(日期),6) AS 日期,经手人,类别,SUM(金额) AS 金额 FROM 表A  GROUP BY 1,2,3

7楼的运行结果如下 虽然没有达到预期的目的,但给了我很大的启示.谢谢!

老弟:你好!上次我在你的基础上用得筛选进行了改进,只要先选择时间范围,经手人,类别后左击查找就能在GRID中直接显示符合条件的记录.程序如下:

a1=ctod()
a2=ctod()
b=


DO CASE
      
  CASE thisform.optiongroup2.value=2
        c=thisform.optiongroup2.option2.caption     
  CASE thisform.optiongroup2.value=3
        c=thisform.optiongroup2.option3.caption
   CASE thisform.optiongroup2.value=4
        c=thisform.optiongroup2.option4.caption
  CASE thisform.optiongroup2.value=5
        c=thisform.optiongroup2.option5.caption
   CASE thisform.optiongroup2.value=6
        c=thisform.optiongroup2.option6.caption     
   CASE thisform.optiongroup2.value=7
        c=thisform.optiongroup2.option7.caption
   CASE thisform.optiongroup2.value=8
        c=thisform.optiongroup2.option8.caption
   CASE thisform.optiongroup2.value=9
        c=thisform.optiongroup2.option9.caption
   CASE thisform.optiongroup2.value=10
        c=thisform.optiongroup2.option10.caption     
   CASE thisform.optiongroup2.value=11
        c=thisform.optiongroup2.option11.caption
   CASE thisform.optiongroup2.value=12
        c=thisform.optiongroup2.option12.caption
   CASE thisform.optiongroup2.value=13
        c=thisform.optiongroup2.option13.caption
   CASE thisform.optiongroup2.value=14
        c=thisform.optiongroup2.option14.caption     
   CASE thisform.optiongroup2.value=15
        c=thisform.optiongroup2.option15.caption
   CASE thisform.optiongroup2.value=16
        c=thisform.optiongroup2.option16.caption
        
   CASE thisform.optiongroup2.value=17
        c=thisform.optiongroup2.option17.caption
   CASE thisform.optiongroup2.value=18
        c=thisform.optiongroup2.option18.caption     
   CASE thisform.optiongroup2.value=19
        c=thisform.optiongroup2.option19.caption
   
ENDCASE   


SELECT zjtzb


SET FILTER TO

SET FILTER TO rq>=a1 and rq<=a2 and jsr=b and xlb=c

GO TOP

THISFORM.Refresh


go top
thisform.refresh

6楼:再一次感谢!