首先先说说分组是怎样工作的。举个例子:
表:temp1有以下记录:
bh sl
aaa 1
aaa 4
ccc 2
bbb 5
aaa 9
bbb 7
现在要统计一下temp1有中多少种编号,各种编号的总数量又是多少。很明显,这是使用分组。
sele bh,sum(sl) as total_sl ;
from temp1 ;
grou by bh ;
orde by bh ;
into curs temp2
命令的运行过程就象投票选举中的点票过程一样。它中间到底是采用什么样的技术来储存中间结果我不知道,但不这重要,我现在假设它使用临时表(实际上我想不大可能),这样对结果没影响,但又容易理解。
1、是逐个扫描记录。每遇到一个新的编号,就为这个编号建立一个临时表(再次重申,使用临时表只是我的假设布局,真正的处理方法我不知道),然后把这个记录的内容放进对应的临时表中去。如果不是新编号,就直接把记录内容放进对应的临时表中去。
2、全部记录扫描完了,各种编号对应的临时表也产生了,现在就是对每一个临时表采用sum()进行统计了。比如编号为"aaa"的临时表是cursor1,那它的内容就是:
Aaa 1
Aaa 4
Aaa 9
现在进行sum()统计了,它的效果就相当于sele bh,sum(sl) as total_sl from cursor1。每一个编号的临时表都要进行这样的sum()统计,然后把每个编号的统计结果联合起来,就想使用union一样,最后得出的结果就是:
aaa 14
ccc 2
bbb 12
3、然后再给bh排序,结果就是:
aaa 14
bbb 12
ccc 2
看了上面那个例子,再看下面这条命令,想必也可以理解了吧:
sele cpk.cpbh,cpk.cpmc,sum(iif(isnull(thdmx.thsl),0,thdmx.thsl) as total_thsl ;
from cpk left join thdmx ;
on cpk.cpbh=thdmx.cpbh ;
grou by cpk.cpbh ;
orde by cpk.cpbh ;
into curs temp1
产品表左联接提货明细表,这样没有提过的产品,在联接后的临时表中,对应的提货数量就是个null值。到了分组,第一步完成后,生成的临时表中也仍然有null值,所以在第二步进行sum命令时,就要使用iif(isnull())来过滤了。过滤的结果就是把null值改为0,其它的不变,然后再由sum进行汇总。最后第三步再排序,结果就出来了。
以上是分组的最基本用法。现在说说分组的一些古怪用法。
一、使用recn()。例子一:
有种情况,一大段本来是应该连续的号码,但中间地漏掉了一些号码,现在要把这些漏了的号码找出来。恐怕很多人,一来就是使用scan endscan,再加上一些中间变量以作为判断依据,最后写成的代码有一大段,运行起来慢得要死。但如果采用以下这种方法,我想即使它不是最好,但也是很好的了。数据如下:
1、6、3、5、2、7、9、10、15、16
在这些数据当中,要找出漏掉了的4、8、11、12、13、14。
1、首先排序
sele bh from temp1 orde by bh into curs temp1
结果是:
1、2、3、5、6、7、9、10、15、16
如果源表中的物理记录顺序和号码的顺序一样就不用做这一步了。
2、取temp1中各个记录的recn(),即记录号,然后把编号减去记录号
sele bh,val(bh-recn()) as aa from temp1 into curs temp2
结果就是:
Bh aa
1 0
2 0
3 0
5 1
6 1
7 1
9 2
10 2
15 6
16 6
3、对aa使用分组,取每组中最小的bh和最大的bh
sele min(bh) as minbh,max(bh) as maxbh from temp2 grou by aa into curs temp3
结果如下:
minbh maxbh
1 3
5 7
9 10
15 16
4、现在结果很明显了,某个记录的minbh跟它上面那个记录的maxbh中间相差的,就是漏掉的号码。现在才使用scan endscan就容易了。
以上方法适用于数据量大、第三步的结果比源表少很多记录的情况下才会发挥效果。因为scan的速度不能和Select - SQL相比,何况它还要作条件判断。虽然这种方法使用了二条全遍历的SQL命令,但这是没过滤条件的SQL命令,速度是很快的,只是分组要多点时间而已。同时只适用于编号没有重复的情况。如果编号有重复,那在第一步的时候,就要使用:
sele bh from temp1 goru by bh orde by bh into curs temp1
把多余的编号去掉。如果想了解那些编号是重复的,就可以使用:
sele bh,coun(bh) as aa from temp1 grou by bh orde by bh havi aa>1 into curs temp1
结果就是重复的编号,对应的aa字段就是重复的次数。
在第二步,好象可以不用二条命令就可以得出结果了,只是暂时还没想到,不知各位对些有什么看法。
上面这种方法有个缺点:就是使用了sum()函数,而它是只能统计数值型的数据,其它字符型、日期型等是不能统计的。所以如果想把一个表中所有记录的产品名称都串起来,变成一个字符串,那是不能的。但对于日期型,变通一下,有时还是可以使用的。
二、日期相减的结果是数值,从而可以使用sum()函数。例子二
编号 名称 入库日期
1 网卡 2000.09.02
1 网卡 2000.09.03
1 网卡 2000.09.05
2 vfp 2000.09.05
2 vfp 2000.09.06
说明:把编号和名称相同,入库日期相间为1的记录合并为一条,并加入另一个表里,如结果:
编号 名称 入库日期 (表2和表1结构一样)
1 网卡 2000.09.03
1 网卡 2000.09.05
2 vfp 2000.09.06
要完成上面的要求,用两个步骤:
1、sele * from 表1 orde by 名称,入库日期 into curs temp1
2、sele 编号,名称,max(入库日期), 入库日期-recn() as dd;
from temp1 ;
grou by 名称,dd ;
into curs temp2
问题的关键是那个"入库日期-recn() as dd",因为已经按日期按好了顺序,所以9月2号减1和9月3号减2的结果都是相同的,但9月5号减3就是另外一个数了,所以这样就把这些日期分开了,就可以用分组了。假设表内容如下:(xm是字符类型,其中的1代表上午上班,2上午下班,3、4如此类推)
这个例子,到在处理第二步的时候,其实就跟第一个例子一样了,都是把一个字段减去记录号,然后根据结果进行分组。
例子三:某员工某月的打卡记录temp1如下:
打卡时间SJ 项目XM 状态ZT
2000/09/1308:01:00AM 1 On time
2000/09/1312:00:00AM 2 On time
2000/09/1302:00:00PM 3 On time
2000/09/1305:59:00PM 4 Early
2000/09/1208:00:00AM 1 On time
2000/09/1212:00:00AM 2 On time
2000/09/1202:00:00PM 3 On time
2000/09/1206:00:00PM 4 On time
2000/09/1408:00:00AM 1 On time
2000/09/1412:00:00AM 2 On time
2000/09/1402:01:00PM 3 Later
2000/09/1406:00:00PM 4 On time
2000/09/1508:00:00AM 1 On time
2000/09/1512:00:00AM 2 On time
2000/09/1502:00:00PM 3 On time
2000/09/1506:00:00PM 4 On time
xm中的1、2、3、4分别代表早上上班、早上下班、下午上班、下午下班。zt中on time表示准时,early表示早退,later表示迟到。在以上数据,把每天的上下班状态用以下的格式列出来:
日期 上午上班时间 上午下班时间 下午上班时间 下午下班时间 上午上班状态 下午状态
很明显,这是根据打时间进行分组。如果使用:
ele day(sj) as dd ,
iif(xm='1',sj,{}) as 上午上班时间, ;
iif(xm='2',sj,{}) as 上午下班时间 ;
from temp1 ;
grou by dd
这个方法不行,原因我详细说一下,可能会有点罗嗦。先说说13号这天的数据。在第一个记录,在第一个iif(),xm=1,上午上班时间就是早上八点。到了第二个记录,xm=2,所以第一个iif()的就是{},即空白日期。到了第三、四个记录,上午上班时间都是空白日期,所以到最后的结果就是13号这天,上午上班时间是空白日期而不是早上八点!其他日期、除了下午下班时间之外其他时间都是如此。按前面说的分组过程,是先对每天的记录进行分组,然后按顺序一个个记录的计算iif()的结果,每计算一次iif(),都更新上午上班时间的值,这样在每天四个上下班时间中,前面三个记录都不起作用,只有第四个才起作用了。
那是不是就不能用分组了呢?那又不是,我们有sum()函数,在sum()函数里,它可以累计前面那三个记录的值,但要是数值型的字段才行。而现在却是日期型,所以我们要转换一下。命令如下:
先定义一个全程变量:initsj={^1900-01-01,00:00:00},即1900年1月1日零时,用它来做基准时间。
SELECT DAY(sj) AS dd,;
initsj+SUM(IIF(xm="1",sj-initsj,0)) AS sj1,;
initsj+SUM(IIF(xm="2",sj-initsj,0)) AS sj2,;
initsj+SUM(IIF(xm="3",sj-initsj,0)) AS sj3,;
initsj+SUM(IIF(xm="4",sj-initsj,0)) AS sj4,;
IIF(SUM(IIF(xm="1".AND.zt="on time",1,0))=1,"on time","NO time"),;
IIF(SUM(IIF(xm="3".AND.zt="on time",1,0))=1,"on time","NO time");
FROM 数据1!temp5;
GROUP BY 1
结果如下:(为了看得更清楚,我省略了两个字段sj2,sj3,DD是表示日期)
DD SJ1 SB3 Exp_6 Exp_7
12 2000/09/12 08:00:00 AM 2000/09/12 02:00:00 PM On time On time
13 2000/09/13 08:01:00 AM 2000/09/13 02:00:00 PM NO time On time
14 2000/09/14 08:00:00 AM 2000/09/14 02:01:00 PM On time NO time
15 2000/09/15 08:00:00 AM 2000/09/15 02:00:00 PM On time On time
和第一条命令相比,它不同的地方是:在分组之后,在13号这天的分组里,第一个记录的xm=1,所以iif()的结果是sj-initsj,即这天的上午上班时间跟基准时间的差(是一个数值型的)。到了第二个记录xm=2,iif()的结果是0,第三、四个记录的iif()都是0,最后sum()把sj-initsj、0、0、0这四个数值中起来,结果还是sj-initsj,也就是第一个记录跟基准时间的差,然后再加上基准时间,也就是这天的上班时间了。
这条命令的奥妙就在于日期可以相减,结果是一个数值,然后用sum()进行累加;而日期加一数值,结果还是日期。在求早上状态时(xm='1'),如果不是早上上班的时间,就累加零,否则就累加上班时间与基准时间的差。最后把结果再加上基准时间又得回原来的上班时间。
而字符那里,如果直接使用第一条命令那种做法,也是不行的。原因也一样,前面三个记录的结果都让第四个记录的值给覆盖了。因本例特殊点,具有唯一性,所以还可以sum()+iif()的方法。但sum()不可以处理字符串,所以要用iif()转换为数值型。
工作原理跟刚才计算时间那样,用内部的iif()把xm="1".AND.zt="on time"即上午准时上班的记录设为1,而其它的时间或上午不是准时上班的就是0,然后用sum()累加,最后又用外面的iif()对sum()的结果进行判断,如果结果是1,就表示上午是准时上班。因为只有一个上午上班记录(xm='1'),而只有zt='on time'才表示准时上班。
在决定是否用分组前,应先确定以哪些定段作为分组依据。分组依据确定后,就要检查一下,你认为某些记录是应该在同一个分组内的,但如果直接就去分组的话,这些记录又不是同一个分组内(看看第一和第二个例子),就要想办法找出这些记录有什么共同点,然后根据这些共同点转换一下,得出一个相同的中间值(第一个例子就是减去各自的记录号从而找出共同点)。然后才根据这个共同点进行分组。