2,750
社区成员
发帖
与我相关
我的任务
分享*--你的 tc.prg 内容如下:
lnForms=_vfp.Forms.Count
If lnForms>0
lcCaption=''
For lnI=1 To lnForms
lcCaption=lcCaption+Chr(10)+'表单Name:'+_vfp.Forms(lnI).Caption+' 表单Caption:'+_vfp.Forms(lnI).Caption
Endfor
Messagebox('有如下表单未关闭:'+lcCaption,48,'信息提示')
Else
Quit
Endif