[浏览完整版]
标题：求助：导出当前行为access文件？
1楼
pyh6918 发表于：2009/6/15 11:37:00Dim ex as New Exporter
ex.SourceTableName = "表名"
ex.filepath = "f:\fox\2009.mdb"
ex.NewTableName = "数据"
ex.Filter = "CurrentTable.current"
ex.Export()
自己做了好几天，也没成功。
还是不得要领，还是请各位帮帮吧！
ex.SourceTableName = "表名"
ex.filepath = "f:\fox\2009.mdb"
ex.NewTableName = "数据"
ex.Filter = "CurrentTable.current"
ex.Export()
自己做了好几天，也没成功。
还是不得要领，还是请各位帮帮吧！
2楼
yangming 发表于：2009/6/15 11:51:00错在导出条件了,不能使用当前行,只能是以列名做为选择条件,或是先筛选再导出
[此贴子已经被作者于2009-6-15 11:52:46编辑过]
3楼
pyh6918 发表于：2009/6/15 14:09:00Dim 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("编号") 在命令窗口中能返回正确的值。
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("编号") 在命令窗口中能返回正确的值。
4楼
yangming 发表于：2009/6/15 14:19:00ex.Filter = "[编号]='bh'"
改成这样试试
改成这样试试
5楼
pyh6918 发表于：2009/6/15 14:25:00试了，导出来的是空表
6楼
yangming 发表于：2009/6/15 14:31:00你的编号列有这个"bh"的字符行吗?
7楼
pyh6918 发表于：2009/6/15 14:32:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
这是我的文件，多谢
8楼
pyh6918 发表于：2009/6/15 14:50:00bh是变量名
9楼
狐狸爸爸 发表于：2009/6/15 15:11:00Dim 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()
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编辑过]
10楼
pyh6918 发表于：2009/6/15 15:19:00多谢，这也高难了。
能说说原理吗？如果你有时间！
能说说原理吗？如果你有时间！