你可以直接用getsqlselect( )得到select条件。然后再定义where条件。
string agosql
agosql=dw_fjzk.getsqlselect()
if rb_1.checked then
dw_fjzk.setsqlselect(agosql+"where zk='v' order by fh")
//....
end
ls_sql="select id from list where "+field_name+"=0"
PREPARE SQLSA FROM :ls_sql;
OPEN DYNAMIC my_curs ;
FETCH my_curs INTO :my_id;
DO WHILE SQLCA.sqlcode = 0
...
FETCH my_curs INTO :my_id;
LOOP
CLOSE my_curs;