PB共享變量保持相同的值

測試例子：（增加一個按鈕）

long ll_count

is_keyid = '15'

select keyid into :is_keyid from tb_keydata where ickeycard = '1000';

if sqlca.sqlcode <> 0 then

messegebox(" sql error", "is_keyid")

end if

select count(1) into :ll_count from tb_keydata where ickeycard = '1000';

if ll_count < 1 then

messegebox("", "")

end if

is_keyid 是共享變量，  共享變量是一種靜态變量，這不僅意味着它所在的對象關閉後再次打開時，共享變量依然保持對象關閉時的值，而且還意味着同一個類多個執行個體中的同名共享變量保持相同的值。這次錯誤的地方是is_keyid一直都保持為‘15’。往後，每次使用select，delete，update，insert into（增删查改）都要使用sqlca.sqlcode判斷。