例: CREATE OR REPLACE procedure dml_sql (the_rq varchar2) as The_c1 Integer; The_result Integer;--dml_sql_result M_jls number; The_xh varchar2(2); Begin The_xh:=lpad(ltrim(the_rq),2,'0'); The_C1 :=Dbms_sql.open_cursor; Dbms_sql.parse(the_C1,'select count(*) from user_indexes where table_name =''ZDCHB'''||the_xh,dbms_sql.v7); Dbms_sql.define_column(the_c1,1,M_jls); The_result:=Dbms_sql.execute(The_c1); If dbms_sql.fetch_rows(cursor1) > 0 then Dbms_sql.column_value(cursor1,1,M_jls); End if; Dbms_sql.close_cursor(The_C1);