 加好友  发短信
等级：管理员
帖子：47497
积分：251403
威望：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)
|
|
[本帖被加为精华]
