以文本方式查看主题 - 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 --
这是我的文件,多谢 |
||||
-- 作者: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 -- 多谢,这也高难了。 能说说原理吗?如果你有时间! |