主题：老师，帮忙看一下导出时候、表达式列出错，不能导出～

老师，帮忙看一下导出时候、表达式列出错，不能导出～

---------------------

另外，能不能导出某段时间内的。也是有选择的导出列。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导出统计表.rar

1.表达式列无法导出,你可以采取代码导出的方式,这样就可以了

老师，我有用代码导出，比如 金额=单价*数量，但是列标题就不是金额，是 'Expr1009  ，怎么修改列标题的名字？

Dim ex As New Exporter
ex.SourceTableName = "出货" '指定导出表
'也要导出列标题的
If FileSys.FileExists("c:\EXCEL\出货.xls") Then
    FileSys.DeleteFile("c:\EXCEL\出货.xls")
End If
ex.FilePath = "c:\EXCEL\出货.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "出货日期,客户名称, 客户型号, 订单号, 订单数量, 单价, 出货数量*单价" '指定导出字段
ex.Filter = "[客户名称] like '%" & khmc.text & "%'"   '指定导出条件      可以这样吗？？？
ex.Filter = Filter & "日期1 >= #" & .Value & "#"
ex.Filter = Filter & "日期2 <= #" & .Value & "#"
ex.Export() '开始
'-----------------------------
'打开工作簿
'Book.Save("c:\EXCEL表\应收货款.xls")
Dim Proc As New Process
Proc.File = "c:\EXCEL\出货.xls"
Proc.Start()

尝试了一下 ex.Fields = "出货日期,客户名称, 客户型号, 订单号, 订单数量, 单价,单价*出货数量 as 金额"  可以正常导出但是数据似乎不对.

那就是改不了列名称了。

那帮忙看看4楼有关导出某时间段的限制。

呵呵，合成表达式的问题，楼主你好好看看：
 
http://www.foxtable.com/help/topics/1284.htm
http://www.foxtable.com/help/topics/2919.htm
http://www.foxtable.com/help/topics/1058.htm
 

你4楼红色的代码，简直不堪入目，先看一下上面的帮助，然后自己改一下，这是基本工功，不会岂能编程？
你已经二尾狐了，不是新手啦。
 
 
ex.Filter = "[客户名称] like '%" & khmc.text & "%'“

if e.Form.Controls("日期1").Value & is Not Nothing Then

   ex.Filter = ex.Filter & ” And [日期] >= #“ e.Form.Controls("日期1").Value & "#"

End if
if e.Form.Controls("日期2").Value & is Not Nothing Then

   ex.Filter = ex.Filter & ” And [日期] <= #“ e.Form.Controls("日期2").Value & "#"

End if

狐爸误解了，我只是复制了帮助里面的筛选代码。

我的意思是说，是否可以连续多几个ex.Filter =

我没有误解，和我贴的帮助一样，你不过是要组合几个条件一起过滤而已。

7楼我帮你写好了。

 

和这个帮助一模一样：

http://www.foxtable.com/help/topics/1058.htm

 

谢谢狐爸！