[浏览完整版]
标题：有关导出数据问题
1楼
baoxyang 发表于：2009/5/4 8:51:00Dim ex as New Exporter
ex.SourceTableName = "出入库明细表"
ex.FilePath = "D:\"
ex.Format = "Fixed"
ex.NewTableName = "ChkOutD"
ex.Export()
导出时出现错误,请教那里出问题了,如需要按规定的格式长度导出,不足时用空格代替,可否做到?请各位楼主帮忙呀!
此主题相关图片如下：未命名.gif
ex.SourceTableName = "出入库明细表"
ex.FilePath = "D:\"
ex.Format = "Fixed"
ex.NewTableName = "ChkOutD"
ex.Export()
导出时出现错误,请教那里出问题了,如需要按规定的格式长度导出,不足时用空格代替,可否做到?请各位楼主帮忙呀!
此主题相关图片如下：未命名.gif2楼
baoxyang 发表于：2009/5/4 8:52:00
此主题相关图片如下：未命名.gif
3楼
baoxyang 发表于：2009/5/5 8:25:00贺老师，上面的错误提示，是怎回事呀？无法导出文本呢？急需，望给予指点！有关按规定长度导出不足以空格填充，非常重要。请老大帮忙呀！
4楼
狐狸爸爸 发表于：2009/5/5 9:17:00现在很忙，有空的时候，再给你写一个例子。
5楼
baoxyang 发表于：2009/5/5 10:30:00期待！
6楼
baoxyang 发表于：2009/5/14 12:52:00老大！别忘了帮做一个范例，按规定长度以文本形式导出不足以空格填充的。呵呵！是否忘了呀！望尽快抽点时间帮忙一下。
7楼
狐狸爸爸 发表于：2009/5/14 13:29:00还是没有空
8楼
baoxyang 发表于：2009/5/14 16:41:00老大！别忘记这个事呀！拜托了！
9楼
狐狸爸爸 发表于：2009/5/14 16:44:00不会忘记的
10楼
狐狸爸爸 发表于：2009/5/14 17:56:00普通导出：
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)
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)
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)