有什么方法可以更快地写入CSV吗？

Question

我有一个for循环，可从数据表中获取数据并将其作为csv写入文本文件。这对于较小的csv文件效果很好，但是在写入较大的csv文件时变得非常慢，例如5000条记录需要2分钟。有没有更好的方法可以做到这一点？

谢谢。

Dim dt As New DataTable()
 dataadapter.Fill(dt)

For i As Integer = 0 To dt.Rows.Count - 2

                For j As Integer = 0 To dt.Columns.Count - 1
                    writer.Write(dt.Rows(i).Item(j).ToString().Trim() & ",")

                Next

            Next