English
FSXS-1.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：1k
源码类别：
企业管理
开发平台：
VFP
- pd = jje
- IF pd<0
- SET COLOR TO R+/B
- @ ROW(), 42 SAY jje PICTURE '99999999999.99'
- @ ROW(), 58 SAY ' '
- ELSE
- IF pd>0
- SET COLOR TO G+/B
- @ ROW(), 42 SAY jje PICTURE '99999999999.99'
- @ ROW(), 58 SAY ' '
- ELSE
- pd = dje
- IF pd<0
- SET COLOR TO R+/B
- @ ROW(), 42 SAY ' '
- @ ROW(), 58 SAY dje
- ELSE
- SET COLOR TO G+/B
- @ ROW(), 42 SAY ' '
- @ ROW(), 58 SAY dje
- ENDI
- ENDI
- ENDI
- SET COLOR TO W/N
- RETU
- *
