解决方案 »

  1.   

    在菜单中调用REPORT程序(不传参数,传参数可用下面的程序段)
    Run_Product(REPORTS, '报表程序名.REP', SYNCHRONOUS, RUNTIME, FILESYSTEM, '', NULL);在FORM中调用REPORT程序(可传参数)
    DECLARE
    pl_id ParamList;
    BEGIN
    pl_id := Get_Parameter_List('参数列表名');
    IF NOT Id_Null(pl_id) THEN
    Destroy_Parameter_List( pl_id );
    END IF;
    pl_id := Create_Parameter_List('参数列表名');
    Add_Parameter(pl_id,'REPORT参数名1',DATA_PARAMETER,':FORM项名1');
    Add_Parameter(pl_id,'REPORT参数名2',TEXT_PARAMETER, :FORM项名2);
    … …
    Run_Product(REPORTS, '报表程序名.REP', SYNCHRONOUS, RUNTIME, FILESYSTEM, pl_id, 
    NULL);
    END;