www.pudn.com > jq_transfile.ARJ > RPT1.PRG

    set talk off 
    set esca off 
    set path to.. 
    do LoadSDK                    && 装入SDK，只需在程序入口处调用一次即可 
 
    do _OutReport in MisTool with "YearRpt","公司年度利润表" 
    retu 
 
    proc YearRpt 
    use Profit 
       ?  "               公司1994-1995各月份报表" 
       ?  "┌─────┬─────────┬─────────┐" 
       ?  "│  月  份  │ 1994年利润(万元) │ 1995年利润(万元) │" 
    go top 
    do whil .not. eof() 
       R1=Month+"      " 
       R2=str(p1994,18,2) 
       R3=str(p1995,18,2) 
       ?  "├─────┼─────────┼─────────┤" 
       ?  "│"+R1+    "│"+R2+            "│"+R3+            "│" 
       skip 
    endd 
       ?  "└─────┴─────────┴─────────┘" 
    ejec 
    use 
    retu