killerdanny请帮帮我，我被卡住了！！:-<

[tian521yan]

我用游标来检索数据并插入标中，可前边插入的没插入成功，只有最后一条插入成功，为什么！！
代码如下：
DECLARE p_receive1 CURSOR FOR
SELECT cardreceive.cardnum,
cardreceive.carddate,
cardreceive.danno
FROM cardreceive
WHERE ( cardreceive.cardkind = :card_kind ) AND
( cardreceive.cardtype = :card_type ) AND
( cardreceive.carddate > :date_pre ) AND
( cardreceive.carddate <= :date_this )
USING ( sqlca);

OPEN p_receive1;

FETCH p_receive1 INTO :card_receive,:date_d,:card_danno;
DO while sqlca.sqlcode=0
INSERT INTO KuCun_mingxi_temp
( cardkind,
cardtype,
operationkind,
danNo,
danNum,
dlName,
kaidandate )
VALUES ( :card_kind,
:card_type,
"",
:card_danno,
:card_receive,
"",
:date_d );
FETCH p_receive1 INTO :card_receive,:date_d,:card_danno;

LOOP
CLOSE p_receive1;