以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助:导出当前行为access文件?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3147)

--  作者:pyh6918
--  发布时间:2009/6/15 11:37:00
--  求助:导出当前行为access文件?
Dim ex as New Exporter
ex.SourceTableName = "表名"
ex.filepath = "f:\\fox\\2009.mdb"
ex.NewTableName = "数据"
ex.Filter = "CurrentTable.current"
ex.Export()

自己做了好几天,也没成功。
还是不得要领,还是请各位帮帮吧!

--  作者:yangming
--  发布时间:2009/6/15 11:51:00
--  

错在导出条件了,不能使用当前行,只能是以列名做为选择条件,或是先筛选再导出

[此贴子已经被作者于2009-6-15 11:52:46编辑过]

--  作者:pyh6918
--  发布时间:2009/6/15 14:09:00
--  
Dim ex as New Exporter
Dim bh as string = Tables("a2009").current("编号")
ex.SourceTableName = "a2009"
ex.filepath = "f:\\fox\\2009.mdb"
ex.NewTableName = "数据"
ex.Filter = "[编号]=bh"
ex.Export()
我的表中有个编号列,这样也不行。
而 Dim bh as string = Tables("a2009").current("编号") 在命令窗口中能返回正确的值。

--  作者:yangming
--  发布时间:2009/6/15 14:19:00
--  
ex.Filter = "[编号]=\'bh\'"
改成这样试试


--  作者:pyh6918
--  发布时间:2009/6/15 14:25:00
--  
试了,导出来的是空表
--  作者:yangming
--  发布时间:2009/6/15 14:31:00
--  
你的编号列有这个"bh"的字符行吗?
--  作者:pyh6918
--  发布时间:2009/6/15 14:32:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar

这是我的文件,多谢
--  作者:pyh6918
--  发布时间:2009/6/15 14:50:00
--  
bh是变量名
--  作者:狐狸爸爸
--  发布时间:2009/6/15 15:11:00
--  
Dim ex as New Exporter
Dim bh as string = Tables("a2009").current("编号")
ex.SourceTableName = "a2009"
ex.filepath = projectpath & "2009.mdb"
ex.NewTableName = "数据"
ex.Filter = "[编号]= \'" & bh & "\'"
ex.Export()

[此贴子已经被作者于2009-6-15 15:11:45编辑过]

--  作者:pyh6918
--  发布时间:2009/6/15 15:19:00
--  
多谢,这也高难了。
能说说原理吗?如果你有时间!