Question

VFP导出的Excel问题

为什么我的VFP表导出的Excel总在第5列上有分隔符，导致不能正常预览？怎样去掉啊？
thisform.pageframe1.page1.combo1.setfocus()
isempty=allt(thisform.pageframe1.page1.combo1.value)
if isempty==''
=messagebox("请选择您要查询的日期！",64,"提示窗口")
else
if not used('药品明细')
use 动态报表设计\药品明细.dbf in 0
endif
select 药品明细
locate for 药品明细.日期=isempty
if found()
select 药品明细.型号,药品明细.日期,;
药品明细.类别,药品明细.药品名称,药品明细.药品报价（吨）,药品明细.成分备注,药品明细.核查人员 from 青海明胶公司药品数据库!药品明细 药品明细;
where(药品明细.日期=isempty);
order by 药品明细.日期 ;
into table 临时表.dbf
select 临时表
copy to d:\vfp6\动态报表设计\临时表.xls type xls
ox=CREATEOBJECT( 'Excel.Application' )
ox.Workbooks.Open( 'd:\vfp6\动态报表设计\临时表.xls' )
ox.Visible = .T.
ox.ActiveWindow.SelectedSheets.PrintPreview
go top
thisform.pageframe1.page1.combo1.value=''
thisform.pageframe1.page1.combo1.setfocus()
isempty=allt(thisform.pageframe1.page1.combo1.value)
else
=messagebox("查询不到结果！",64,"提示窗口")
thisform.pageframe1.page1.combo1.value=''
thisform.pageframe1.page1.combo1.setfocus()
isempty=allt(thisform.pageframe1.page1.combo1.value)
endif
endif
就是这个代码，在“药品报价（吨）”这列有分隔符！预览只能看到“药品明细.型号,药品明细.日期,;
药品明细.类别,药品明细.药品名称,药品明细.药品报价（吨）”，其他看不到
我看过了，把EXCEL变为横向纸张就可以完全打印预览了，可是在代码中怎么实现让EXCEL变为横向呢？
求教！！谢谢

Answer 1

字段名不能有括号吧。（）把括号去掉。

这个吨在录入界面 中设置。。