主题：关于输出为文本文件

Dim s As new Stringbuilder
Dim p As String = "," '你的分隔符号
Dim v As String
For Each dr As DataRow In DataTables("订单").DataRows
    v = ""
    For Each dc As DataCol In DataTables("订单").DataCols
        If v > "" Then
            v = v & p
        End If
        v = v & dr(dc.name)
    Next
    s.AppendLine(v)
Next
Filesys.WriteAllText("c:\data\test.txt",s.Tostring,False)

参考：

http://www.foxtable.com/help/topics/2097.htm

看看这个：

http://www.foxtable.com/help/topics/0360.htm