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 ,"人"