Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有关导出数据问题


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

主题：有关导出数据问题
帅哥哟，离线，有人找我吗？
baoxyang
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00 		有关导出数据问题  发帖心情 Post By：2009/5/4 8:51:00 [只看该作者]

Dim ex as New Exporter
ex.SourceTableName = "出入库明细表"
ex.FilePath = "D:\"
ex.Format = "Fixed"
ex.NewTableName = "ChkOutD"
ex.Export()

导出时出现错误,请教那里出问题了,如需要按规定的格式长度导出,不足时用空格代替,可否做到?请各位楼主帮忙呀!

图片点击可在新窗口打开查看此主题相关图片如下：未命名.gif
 回到顶部
帅哥哟，离线，有人找我吗？
baoxyang
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00 		  发帖心情 Post By：2009/5/4 8:52:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：未命名.gif
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
baoxyang
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00 		  发帖心情 Post By：2009/5/5 8:25:00 [只看该作者]

贺老师，上面的错误提示，是怎回事呀？无法导出文本呢？急需，望给予指点！有关按规定长度导出不足以空格填充，非常重要。请老大帮忙呀！

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

现在很忙，有空的时候，再给你写一个例子。

 回到顶部
帅哥哟，离线，有人找我吗？
baoxyang
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00 		  发帖心情 Post By：2009/5/5 10:30:00 [只看该作者]

期待！

 回到顶部
帅哥哟，离线，有人找我吗？
baoxyang
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00 		[原创]管易顺工厂信息管理系统  发帖心情 Post By：2009/5/14 12:52:00 [只看该作者]

老大！别忘了帮做一个范例，按规定长度以文本形式导出不足以空格填充的。呵呵！是否忘了呀！望尽快抽点时间帮忙一下。

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


加好友 发短信
等级：管理员 帖子：47476 积分：251245 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2009/5/14 13:29:00 [只看该作者]

还是没有空
图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
baoxyang
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00 		  发帖心情 Post By：2009/5/14 16:41:00 [只看该作者]

老大！别忘记这个事呀！拜托了！

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


加好友 发短信
等级：管理员 帖子：47476 积分：251245 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2009/5/14 16:44:00 [只看该作者]

不会忘记的

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47476 积分：251245 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2009/5/14 17:56:00 [只看该作者]

普通导出：
 

Dim s As String
For Each r As Row In Tables("订单").Rows
    For Each c As Col In Tables("订单").Cols
        s = s & r(c.Name) & ","
    Next
    s = s.Trim(",") & chr(13) & Chr(10)
Next
Filesys.WriteAllText("c:\data\订单.text",s.Trim(chr(10)).Trim(chr(13)),False)

 

固定10个字符的宽度，不足时自动补空格：

Dim s As String
For Each r As Row In Tables("订单").Rows
    For Each c As Col In Tables("订单").Cols
        s = s & r(c.Name).ToString.PadRight(10) & ","
    Next
    s = s.Trim(",") & chr(13) & Chr(10)
Next
Filesys.WriteAllText("c:\data\订单.text",s.Trim(chr(10)).Trim(chr(13)),False)

[本帖被加为精华]
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 4 次数据查询