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

 For Each dc As DataCol In DataTables("订单").DataCols
dr(dc.name)
这代表的是所有列，但是我只要指定的2列。下面是我指定的“卡号”列如何能同时指定另一个“实发工资”列

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

....我改好了，脑子笨再定义一个列就OK了

新的问题，我表中的数据室保留2位小数的，但是导出为文本文件后怎么没有2位小数了

杂项里的文本文件输出整数也能带2位小数，我现在输出的是整数就没有小数位2位了，带角分小数的到可以，难道还要判断小数位是不是零值？

看看这个：

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