pb中有没有一个函数或者是什么的来判断数据是否存在，如果不存在则执行添加，存在就提示存在。
messagebox("提示",ls_empid0);
ls_djtime=trim(sle_1.text)
Select zc.zcwage,zw.zwwage
into :ls_zcwage,:ls_zwwage
From px_emp000 e,px_zc0000 zc,px_zw0000 zw
Where e.zcid00=zc.zcid00 And e.zwid00=zw.zwid00 And e.empid0=:ls_empid0; //查询出基本工资和职务工资
select g.keshis*j.mksjt0 into :ls_jxjt
From px_emp000 e,px_grjxdj g,px_jxjt00 j
Where e.zcid00=j.zcid00 And g.djtime=:ls_djtime And e.empid0=:ls_empid0; // --查询教学津贴
Select k.mykyjt into :ls_kyjt
From px_emp000 e,px_kyjt00 k
Where e.zcid00=k.zcid00 And e.empid0=:ls_empid0;
//我想在这里加判断，，如果这条工资数据存在，则不添加。。如果不存在则添加。
insert into px_grgzxx(djtime,empid0,zcwage,zwwage,jxjt00,kyjt00)
values(:ls_djtime,:ls_empid0,:ls_zcwage,:ls_zwwage,:ls_jxjt,:ls_kyjt);
------解决方案--------------------
用count（）函数数一下，如果是0就插入
------解决方案--------------------
判断行数有没有不就行？
没有的话就插入
------解决方案--------------------
long ll_jxjt
ll_jxjt = 0
select count(j.mksjt0) into :ll_jxjt
From px_emp000 e,px_grjxdj g,px_jxjt00 j
Where e.zcid00=j.zcid00 And g.djtime=:ls_djtime And e.empid0=:ls_empid0; // --查询教学津贴
Select k.mykyjt into :ls_kyjt
From px_emp000 e,px_kyjt00 k
Where e.zcid00=k.zcid00 And e.empid0=:ls_empid0;
if ll_jxjt = 0 then
//insert
else
//todo
end if
------解决方案--------------------
嗯 参照楼上的代码把