尝试将datagridview的内容导出为ex​​cel时出错

Question

我正在尝试将dgv的内容导出为ex​​cel，但我遇到了一些错误。 我的代码是：

Public Class Form1
Dim dbProvider As String = "PROVIDER=microsoft.ace.oledb.12.0;"
Dim dbSource As String = "Data Source = C:\D&R\Data\DR.accdb"
Dim conn As New OleDb.OleDbConnection
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter
Dim sql As String
Dim query As String = "SELECT AcctNum,SDI,Medicare,State,Fed,TotWages FROM Earnings INNER JOIN Personel On Earnings.SS=Personel.SS"
Dim command As New OleDb.OleDbCommand(query, conn)

Private Sub connect()
    conn.ConnectionString = dbProvider & dbSource
    conn.Open()
    MsgBox(conn.State.ToString)
End Sub

Private Sub dgPopulate()
    connect()
    da.SelectCommand = command
    da.Fill(ds)
    Dim dt As New DataTable
    da.Fill(dt)

    Me.dgEmployees.DataSource = dt
    conn.Close()
End Sub

Private Sub export()
    Dim dgCount As Integer
    dgCount = dgEmployees.Rows.Count
    Dim output As New List(Of String)
    For Each intAccNum As DataGridViewRow In dgEmployees.Rows

        Dim empNumber As String = intAccNum.Cells(0).ToString
        For i = 1 To 5
            output.Add(empNumber + "," + CStr(intAccNum.Cells(i).Value + vbCrLf))
        Next
    Next
    System.IO.File.WriteAllLines("C:\users\fantus\documents\test.txt", output.ToArray)
End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    dgPopulate()
End Sub

Private Sub ExportToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExportToolStripMenuItem.Click
    export()
End Sub

End Class

我收到了错误：

"Conversion from string "" to type 'Double' is not valid."

在：

output.Add(empNumber + "," + CStr(intAccNum.Cells(i).Value + vbCrLf))

Answer 1

您正在向vbCrLf添加.value。将.value转换为字符串，然后添加回车符。