主题:【求助】请高手解决为什么老是找不到parameter
*确定周期
xdrq = thisform.oleDate._Value
SELECT TOP 5 rq FROM import WHERE rq <= xdrq GROUP BY rq ORDER BY rq DESC INTO CURSOR lsrq
SELECT lsrq
GO bottom
l1rq = rq
use
SELECT TOP 10 rq FROM import WHERE rq <= xdrq GROUP BY rq ORDER BY rq DESC INTO CURSOR lsrq
SELECT lsrq
GO bottom
l2rq = rq
use
SELECT TOP 20 rq FROM import WHERE rq <= xdrq GROUP BY rq ORDER BY rq DESC INTO CURSOR lsrq
SELECT lsrq
GO bottom
l3rq = rq
use
xdrq = thisform.oleDate._Value
*开始统计当日排名
CREATE CURSOR lspmb (dm c(6),pm i(4))
INSERT INTO lspmb (dm) SELECT dist dm FROM data!import WHERE import.rq == xdrq group by import.dm order by import.sp desc
REPLACE ALL pm WITH RECNO()
*统计结束
SELECT dist import.dm,;
import.mc, ;
SUM(import.lw) as "L1",;
SUM(import.sp) as "S1";
FROM DATA!import ;
WHERE import.rq <= xdrq AND import.rq >= l1rq;
GROUP BY import.dm ;
INTO CURSOR lwbl1
SELECT dist import.dm ,;
import.mc, ;
SUM(import.lw) as "L2",;
SUM(import.sp) as "S2";
FROM DATA!import ;
WHERE import.rq <= xdrq AND import.rq >= l2rq;
GROUP BY import.dm ;
INTO CURSOR lwbl2
SELECT dist import.dm,;
import.mc , ;
SUM(import.lw) as "L3",;
SUM(import.sp) as "S3";
FROM DATA!import ;
WHERE import.rq <= xdrq AND import.rq >= l3rq;
GROUP BY import.dm ;
INTO CURSOR lwbl3
SELECT lwspb
LOCATE FOR lwspb.rq = xdrq
IF FOUND()
DELETE ALL FOR rq = xdrq
ENDIF
INSERT INTO lwspb (dm,mc,l1,l2,l3,spb) ;
SELECT lwbl1.dm,lwbl1.mc,lwbl1.l1,lwbl2.l2,lwbl3.l3,lspmb.pm;
FROM lwbl1;
INNER join lwbl2 on lwbl1.dm = lwbl2.dm;
INNER join lwbl3 on lwbl1.dm = lwbl3.dm;
inner join lspmb on lwbl1.dm = lspmb.dm
REPLACE ALL rq WITH xdrq FOR rq = CTOD("00/00/00")
SELECT lwbl1
USE
SELECT lwbl2
USE
SELECT lwbl3
USE
SELECT lspmb
USE