为什么
string ls_pactno
DynamicDescriptionArea DynamicSQLCA
DynamicSQLCA = CREATE DynamicDescriptionArea
SqlStatement="Select * From T_PactL Where goodscode Like ?"Prepare SQLSA From :Sqlstatement;
Describe SQLSA into SQLDA;
Declare pactquery Dynamic Cursor For SQLSA;SQLDA.SetDynamicParm(1,"001")Open Dynamic pactquery Using Descriptor SQLDA;
Fetch pactquery Using Descriptor SQLDA;
if sqlca.SqlCode=100 then
   messagebox("","没有查询到任何符合条件的记录!")
else
   Do while sqlca.SQlCode=0
ls_pactno=GetDynamicString(SQLDA,1)
messagebox("",ls_pactno)
Fetch pactquery Using Descriptor SQLDA;
   Loop
end if
Close pactquery;
不能正常执行