pb 如何实现插入一条数据的时候某一列自动加一

[通向]

就是这段代码
string id,name,major,qq,uid,uname,phone,reason
int sex
id=trim(sle_id.text)
name=trim(sle_name.text)
major=trim(sle_major.text)
qq=trim(sle_qq.text)
uid=trim(sle_uid.text)
uname=trim(sle_uname.text)
phone=trim(sle_phone.text)
reason=trim(sle_reason.text)
sex=rb

insert into join_union values(:id,:name,:sex,:major,:qq,:phone,:reason,0,:uid,:id) using sqlca;
if sqlca.sqlcode <> 0 then
rollback using sqlca;
messagebox('提示！','申请失败！',stopsign!)
else
commit using sqlca;
messagebox('','发送成功!')
end if
close(w_applyunion1)
如何让那个ID值，每次点“申请”控件时，就自动加一

[eclat2299]

1.宣告一個 integer 變量 integer li_id_auto_inc 2.於這行之後加上 id=trim(sle_id.text) li_id_auto_inc = integer(id) //將ID轉為整數 li_id_auto_inc ++ //整數+1 id=string(li_id_auto_inc ) //轉為字串回存ID