循环查询语句?
//专线名称string ls_zxmc,ls_dzidint is_zxid,is_dzid,ils_zxmc = ddlb_1.textselect id into :is_zxid from bm_zxxx where FName=:ls_zxmc;select FDz_id into :ls_dzid from bm_zxxxmx where FZx_id=:is_zxid;is_dzid = integer(ls_dzid)for i=1 to is_dzid ls_sql = " and jydxx.sdzbm = "+ls_dzid+" " ls_sql_find = ls_sql_find + ls_sqlnext
do while sqlca.sqlcode =0 if ls_sql2='' then ls_sql2= " and ( jydxx.sdzbm="+ls_dzid+" " else ls_sql2 = ls_sql2 + " or jydxx.sdzbm="+ls_dzid+" " end if fetch emp_cx into :ls_dzid;loopls_sql_find = ls_sql + ls_sql2 +")" MessageBox("SQL语句[ls_sql_find]",ls_sql_find) //这里通过对话框检查一下SQL语句