设置了 set talk off 怎么查询结果还是显示到程序里？

chinawcs 2011-12-21 09:39:41



	      set talk on

	      sele * from bm_cent &mysql

              copy to xxx  type xl5

	      set talk off

...全文

181 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

十豆三 2011-12-21

打赏
举报

在主程序或这段代码之前加
set talk off

然后整个程序不要再设置
set talk on

chinawcs 2011-12-21

打赏
举报

正解

另外我用了 sys(2015)

谢谢 wwwwA

分给你了

WWWWA 2011-12-21

打赏
举报

去掉 use dd
直接 sele dd

chinawcs 2011-12-21

打赏
举报



CASE THISFORM.FLX.VALUE='xls文件'



       

	   do case

	   case thisform.db.value='编目录入库'

		  set talk on

	      select * from bm_k1 &mysql into curs dd

	      set talk off

	   case thisform.db.value='编目主库'

	      *sele * from bm_cent where dlh>=1 and dlh<=100 

	      set talk on

	      sele * from bm_cent &mysql into curs dd

	      set talk off

	   endc





	 m_test=allt(thisform.marcf.value)

	 use dd

	 sele dd

	 if reccount()>16383 

	    =MESSAGEBOX('超出excel最大行数【16383】限制,请添加适当条件多批次导出！',48,'book')

	    sele dd

	    use

	 	return

	 endif

	 copy to &m_test type xl5

	 select dd

	 use

	

     

	 thisform.text1.visible=.f.

	 thisform.ts.visible=.f.

	 =MESSAGEBOX('数据处理完成！',48,'book')