首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

VF生成EXCEL文件时,怎么不显示生成过程

2013-12-15 
VF生成EXCEL文件时,如何不显示生成过程1、用以下语句生成EXCEL文件时将打开EXCEL后显示添加所有记录的过程,

VF生成EXCEL文件时,如何不显示生成过程
1、用以下语句生成EXCEL文件时将打开EXCEL后显示添加所有记录的过程,如果记录少还可以,如果多就要显示很长时间。
  如何不显示向EXCEL添加过程,而是在屏幕上显示正在处理XX条记录,当EXCEL文件全部生成后,再显示这个EXCEL文件?
  ef=CREATEOBJECT( 'Excel.application')
ef.Workbooks.add 
  ef.Worksheets( "sheet1").Activate   
  ef.ActiveWindow.WindowState=2    
  ef.visible=.t.
ef.Cells.Select 
ef.Selection.Font.Name= "宋体"  &&设置整张表所有的默认字体都为“宋体”
ef.Selection.Font.Size=9   &&设置整张表所有的默认字体大小为11
ef.Selection.RowHeight=20

2、在循环生成EXCEL语句中以下语句,并没有显示,是什么原因?
  scan
      wait wind  '正在处理第: '+ ltrim(str(recno()))
  endscan

   谢谢各位老师。
[解决办法]
把 ef.visible=.t. 放到最后,至少在 scan ... endscan 之后

热点排行