Date l_rq
dw_2.AcceptText()
String l_card,l_money,l_row
l_rq = dw_2.GetItemDate(1,'rq')
l_card = dw_2.GetItemString(1,'bankcardno')
l_money = dw_2.GetItemString(1,'money')
SELECT bankcardno INTO :l_row FROM vip_active1 WHERE bankcardno = :l_card ;
IF SQLCA.SQLCODE=0 THEN
MessageBox('提示','該卡號存在')
Return
ELSE
INSERT INTO vip_active1 VALUES(:l_card,:l_money,to_date(:l_rq));
COMMIT;
MessageBox('提示','保存成功')
END IF

這個語句不判斷重復的卡號～～我用相同的卡號進行保存還是可以保存成功

ok了謝謝啊～