2,749
社区成员
发帖
与我相关
我的任务
分享
set talk on
sele * from bm_cent &mysql
copy to xxx type xl5
set talk off
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')