clear
set clear on
set talk off
set safety off
thisform.refresh

check_pathdir = thisform.txtAppImage.value            && 待校验的数据表?
if not file(check_pathdir)                            && 判断参照文件是否存在，若不存在，退出到下一个文件
   messagebox( '请选择数据库', 0+48+0, "信息提示")
else
use &check_pathdir
m1=0
m2=0
m3=0
m4=0
m5=0
m6=0
m7=0
m8=0
m9=0
m10=0
count to m1
sum all 奖金,加工天数,可靠性奖,运行指标,安全基金,效益奖,值日值宿,其他奖项  to m2,m3,m4,m5,m6,m7,m8,m9
?
?
?
? "※ 各项汇总：" font '宋体',12 at 15
?     "1、人数：" font '宋体',12 at 15,m1 font '宋体',12 at 26,"人" font '宋体',12
?     "2、奖金：" font '宋体',12 at 15,m2 font '宋体',12 at 26,"元" font '宋体',12
? "3、加班天数：" font '宋体',12 at 15,m3 font '宋体',12 at 26,"天" font '宋体',12
? "4、可靠性奖：" font '宋体',12 at 15,m4 font '宋体',12 at 26,"元" font '宋体',12
? "5、运行指标：" font '宋体',12 at 15,m5 font '宋体',12 at 26,"元" font '宋体',12
? "6、安全基金：" font '宋体',12 at 15,m6 font '宋体',12 at 26,"元" font '宋体',12
? "7、效 益 奖：" font '宋体',12 at 15,m7 font '宋体',12 at 26,"元" font '宋体',12
? "8、值日值宿：" font '宋体',12 at 15,m8 font '宋体',12 at 26,"元" font '宋体',12
? "9、其他奖项：" font '宋体',12 at 15,m9 font '宋体',12 at 26,"元" font '宋体',12
endif
set safety on
set talk on
set clear off
close all
return

[ 本帖最后由 grb914 于 2012-1-17 14:19 编辑 ]

怎么没人理我啊。。

你又沒把問題描述清楚。是不是那些問號的字體設置不行呀？

?     "1、人数：" font '宋体',12 at 15,m1 font '宋体',12 at 26,"人" font '宋体',12
问题是在这，运行时提示“表达示计算失败”

對呀，問號指令把每一項都視為數據，而不是指令，這種寫法是舊式兼容性的，不支持了。

font '宋体',12 at 15   我把这些内容全删除了，就好使了。。变成
?     "1、人数：" ,m1 ,"人"

font '宋体'，12 at 15
這樣的東西，是舊式輸出格式，設置字體和大小、位置，是基於文本模式向窗口模式過渡時期的兼容性格式，發展到VFP9，不會再支持這些在文本模式下的指令。窗口模式的輸出，有更豐富的功能可用，無需如此簡陋。

剛查了一下幫助，VFP9還支持這種輸出格式。必須一個?只輸出一個數據，不要連在一起，不斷行的就用??輸出。
我試過了，一個問號一個數據是可以的。問題出在分割每個數據的逗號上，你留意一下font的語法也需要逗號，VFP無法區分這樣兩種逗號。

[ 本帖最后由 TonyDeng 于 2012-1-17 19:30 编辑 ]

奇怪，为什么这样来显示数据？
俺都是用文本框的。

可能是向打印機輸出的。不過，這樣其實很難對齊，不好做。