回 帖 发 新 帖 刷新版面

主题:【求助】请高手解决为什么老是找不到parameter

这是一个按钮的click事件代码,每次按下均提示找不到parameter,请高手帮我看看哪里有问题,该怎么改,先先谢谢了!我用的是VFP8.0,是版本过低吗?
*确定周期
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 

回复列表 (共10个回复)

沙发

自己先占个沙发,难道没有人能解决吗?

板凳

你确定‘每次按下’都直接执行该代码(中间没有引用步骤)?

3 楼

[quote]你确定‘每次按下’都直接执行该代码(中间没有引用步骤)?
[/quote]
单击该按钮,这个就是click事件,没有执行其他代码啊!

4 楼


老是提示我这句有错误:
INSERT INTO lspmb (dm) SELECT dist dm FROM data!import WHERE import.rq == xdrq group by import.dm order by import.sp desc

5 楼

data!——'!'指示的是.dbc(vfp数据库),XX!yy表示的是XX数据库的yy表。换个表名吧
import——先看看语法

6 楼


import作为表名不合适是吗?我换换看!

7 楼


老大,表名改了也不行!
这个程序在以前的表单中运行是没问题的,后来我为了美化界面就新建了一个表单,在新建的表单上添加一个图形,然后单击调用另外一个表单,然后再在所调用的表单中添加一个按钮执行上面的语句,就出现了这个问题,还请老大帮忙分析一下!

8 楼

看不出什么,用分号试试:
INSERT INTO lspmb (dm) ;
    SELECT dist dm ;
        FROM data!import ;
        WHERE import.rq == xdrq ;
        group by import.dm ;
        order by import.sp desc

9 楼


你好,谢谢你费心了,我已昨晚调试通过了!原因是有个表单属性没有定义,可是这个程序段并未引用这个属性,但是通过了,也很高兴,至于什么原因以后再慢慢找吧,呵呵!

10 楼

你好.我是全职网赚工作者.
如果你有时间有电脑.
想在网络上创业.请联系我..
项目绝对真实.详情QQ空间资料
加盟请联系 QQ908889846

我来回复

您尚未登录,请登录后再回复。点此登录或注册