Foxtable(狐表)用户栏目专家坐堂 → [求助]导出数据出错,提示至少有一个参数没有指定


  共有13658人关注过本帖树形打印复制链接

主题:[求助]导出数据出错,提示至少有一个参数没有指定

帅哥哟,离线,有人找我吗?
zhenshenbo
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:108 积分:814 威望:0 精华:0 注册:2011/5/27 16:19:00
[求助]导出数据出错,提示至少有一个参数没有指定  发帖心情 Post By:2011/8/9 17:38:00 [只看该作者]

Dim dt As Date = now()
Dim ex As New Exporter
ex.SourceTableName = "盘库统计" '指定导出表
ex.FilePath = "盘点数据表.xls"  'ProjectPath & "【备忘】" & dt.Date & "盘点数据表.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "ID,条形码,商家编码,正品数量,次品数量" '指定导出字段
ex.Export() '开始导出
MessageBox.Show("导出成功!", "提示")

 

 

提示如下

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20110809173200.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/9 17:43:00 [只看该作者]

问题也许在这里:

 

ex.FilePath = "盘点数据表.xls" 'ProjectPath & "【备忘】" & dt.Date & "盘点数据表.xls" '指定目标文件

 

你都没有指定文件的路径的。


 回到顶部
帅哥哟,离线,有人找我吗?
zhenshenbo
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:108 积分:814 威望:0 精华:0 注册:2011/5/27 16:19:00
回复:(狐狸爸爸)问题也许在这里: ex.Fil...  发帖心情 Post By:2011/8/9 17:51:00 [只看该作者]

之前用的是后面的引号后面部分..

ex.FilePath =  ProjectPath & "【备忘】" & dt.Date & "盘点数据表.xls"


 回到顶部
帅哥哟,离线,有人找我吗?
zhenshenbo
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:108 积分:814 威望:0 精华:0 注册:2011/5/27 16:19:00
  发帖心情 Post By:2011/8/9 19:53:00 [只看该作者]

以前 这么写是对的。。。 ex.FilePath =? ProjectPath & "【备忘】" & dt.Date & "盘点数据表.xls" 现在报错了..

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/9 20:57:00 [只看该作者]

看看你合成的文件名到底是什么:

 

messagebox.show(ex.filepath)

 

还可以用下面的方法判断文件是否存在:

 

if FileSys.FileExists(ex.filepath)  = false then

   messagebox.show("文件不存在")

endif

 


 回到顶部
帅哥哟,离线,有人找我吗?
zhenshenbo
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:108 积分:814 威望:0 精华:0 注册:2011/5/27 16:19:00
回复:(狐狸爸爸)看看你合成的文件名到底是什么:...  发帖心情 Post By:2011/8/10 9:15:00 [只看该作者]

导出的路径文件必须要先存在么?  我前两天用的时候是直接生成一个文件  不知道为什么这两天就不行了

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20110810091428.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2011-8-10 9:17:33编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/10 9:17:00 [只看该作者]

应该不需要存在的,导入才需要存在的,我之前以为是导入。

你明确指定路径和文件名吧。


 回到顶部
帅哥哟,离线,有人找我吗?
zhenshenbo
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:108 积分:814 威望:0 精华:0 注册:2011/5/27 16:19:00
求软件  发帖心情 Post By:2011/8/10 9:20:00 [只看该作者]

我以前就会在 table文件当前目录下 生成一个 excel表 

【备忘】2011-8-10盘点数据表  


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/10 9:22:00 [只看该作者]

Dim dt As Date = now()
Dim ex As New Exporter
ex.SourceTableName = "盘库统计" '指定导出表
ex.FilePath = projectPath & "盘点数据表.xls"

ex.Format = "Excel" '导出格式为Excel
ex.Fields = "ID,条形码,商家编码,正品数量,次品数量" '指定导出字段
ex.Export() '开始导出
MessageBox.Show("导出成功!", "提示")


 回到顶部
帅哥哟,离线,有人找我吗?
zhenshenbo
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:108 积分:814 威望:0 精华:0 注册:2011/5/27 16:19:00
回复:(狐狸爸爸)Dim dt As Date = now()Dim ex As ...  发帖心情 Post By:2011/8/10 9:26:00 [只看该作者]

图片点击可在新窗口打开查看提示依旧一样...   导出的表里 有表达式列 没问题的吧  我直接导出是可以导出的...

 回到顶部
总数 21 1 2 3 下一页