www.pudn.com > jq_caiwu.ARJ > HJXS.PRG

 SELE 1 
 SUM FOR pzh=pz jje, dje TO a1, a2 
 SET COLOR TO G/N 
 IF a1<0 
      SET COLOR TO R+/N 
      @ 15, 42 SAY a1 PICTURE '9999999999.99' 
      SET COLOR TO W/N 
 ELSE 
      @ 15, 42 SAY a1 PICTURE '9999999999.99' 
 ENDI 
 IF a2<0 
      SET COLOR TO R+/N 
      @ 15, 58 SAY a2 PICTURE '9999999999.99' 
      SET COLOR TO G/N 
 ELSE 
      @ 15, 58 SAY a2 PICTURE '9999999999.99' 
 ENDI 
 SET COLOR TO W/N 
 RETU 
*