- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 有关导出数据问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=2672)
-- 发布时间：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-- 发布时间：2009/5/4 8:52:00
--
此主题相关图片如下：未命名.gif
-- 发布时间：2009/5/5 8:25:00
--
贺老师，上面的错误提示，是怎回事呀？无法导出文本呢？急需，望给予指点！有关按规定长度导出不足以空格填充，非常重要。请老大帮忙呀！
-- 发布时间：2009/5/5 9:17:00
--
现在很忙，有空的时候，再给你写一个例子。
-- 发布时间：2009/5/5 10:30:00
--
期待！
-- 发布时间：2009/5/14 12:52:00
-- [原创]管易顺工厂信息管理系统
老大！别忘了帮做一个范例，按规定长度以文本形式导出不足以空格填充的。呵呵！是否忘了呀！望尽快抽点时间帮忙一下。
-- 发布时间：2009/5/14 13:29:00
--
还是没有空
-- 发布时间：2009/5/14 16:41:00
--
老大！别忘记这个事呀！拜托了！
-- 发布时间：2009/5/14 16:44:00
--
不会忘记的
-- 发布时间：2009/5/14 17:56:00
--
普通导出：
Dim
s As StringFor 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
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)