报表设太复杂了,尤其多细节等,还好在本坛的帮助下,终于做到了许多.如:


能输出下面我想要的格式.


用老方法也能很快解决一些小问题,如一下代码也能打印两个表,但是,必须退出VFP程序后,打印机才能打印,怎样解决?

SELECT jftj
SET PRINTER on
?"床号 住院号 姓名 性别年龄入院日期  诊断               手术名称       手术者            病历医师"
DO WHILE .not.eof()
   ?床号," ",住院号,姓名+" ",性别,年龄,STR(MONTH(入院日期),2),"月",STR(day(入院日期),2),SUBSTR(诊断,1,16),SUBSTR(手术名称,1,16),手术者,病历医师
   SKIP
ENDDO
SELECT jftj1
   ?""
   ?""
   ?"病历医师 病历积分 手术积分 合计"
DO while.not.eof()
   ?病历医师,"  "+STR(病历积分,5),"  "+STR(手术积分,5),"  "+STR(合计,5)
   SKIP
ENDDO
sum 合计 TO hj
?"                 共计：",STR(hj,5)
SET PRINTER off

[ 本帖最后由 muyubo 于 2015-4-24 22:09 编辑 ]

谢谢各位哦关注,EXCEL我用不熟练,不想再费脑子了,主要是钟爱VFP,想摸索各种方法.
加上SET CONSOLE OFF只是不再屏幕上显示了,可还是打印机等待状态,当退出程序后,才开始打印.
SCAN ENDSCAN 比DO WHILE ENDDO .又一招,好.

[ 本帖最后由 muyubo 于 2015-4-25 06:53 编辑 ]

孩子的眼眨了多年了,有点累.
建议将眨眼速度放慢,能显得更可爱温柔!
呵呵!开玩笑

奥，有兴趣了鼓捣鼓捣。

用scan扫描语句，也是等待退出程序后才能开始打印

都试过，还是不行

我是说,在点击表单按钮时,执行以上代码,结果是打印机不打,等推出VFP程序后,打印机才能打印.怎样设置才能在不退出程序的情况下,正常打印?
用报表文件打印,不出现这种情况.

SELECT 主办券商,CNT(*) 数量 FROM QUEQ GROUP BY 1 INTO CURSOR TEMP &&中的CNT(*)是么?

[ 本帖最后由 muyubo 于 2015-4-25 13:27 编辑 ]

是啊,没有,让大家迷惑,不好意思,

奥,还有这么个,CNT(*))等同于COUNT(*),帮助中查不到.

[ 本帖最后由 muyubo 于 2015-4-25 15:21 编辑 ]

试过下面代码,也不打印

PRN=FOPEN("LPT1",1)
PRN_C="床号 住院号 姓名 性别年龄入院日期  诊断               手术名称       手术者            病历医师"
=FPUTS(PRN,PRN_C)
.................
=FCLOSE(PRN)

TonyDeng版的深度详解,我好像明白原因了,不过对我来说有点难度,不鼓捣了,用处不大,谢谢!