被调用的表单的Init 代码如下:
parameters str_info
sele cpjg
fj_name0 = subs(str_info,1,rat(".",str_info)-1)+".xls"
&&生成EXCEL表的文件名
fj_name0 = uppe(fj_name0)
if file(fj_name0)
&&检测到文件已经存在,是否覆盖?覆盖则重写
if !warningw("文件 "+fj_name0+" 已经存在,是否覆盖?")
&&不覆盖,则退出
return
else
&&覆盖,则重写文件
copy to &fj_name0 xls
endif
else
&&不存在,则生成
copy to &fj_name0 xls
endif
运行时出现:函数参数的值、类型或数目无效