Develop2000问题 急!!!

L_sql := '......';
L_sql := '(' || L_sql || ')';
set_block_property(Block_ID,QUERY_DATA_SOURCE_NAME,L_sql);
go_block(Block_ID);
execute_query;

然后就出现了"FRM-41380 ブロックに?合せデ┼タ・ソ┼スを韵定できません"(我使用的日文DEVELOP2000)
我觉得可能是Block_ID的相关属性没有设置好
可是我一一尝试还是没有结果
各位大虾帮帮忙!!!!!!!!!!!!!