VB.NET导入CSV到DataTable遇Int32类型转换错误求助

你遇到的这个错误很典型——虽然你确认CSV里PLANTJAAR列没有空行，但实际上该列的某些单元格里存在无法直接转换为Int32的内容（比如隐藏的空白字符、非数字符号，或者看起来像空但实际是无效字符串的情况）。直接用Rows.Add(parser.ReadFields())会让DataTable自动尝试转换类型，一旦遇到无效值就会报错。下面给你几个具体的解决步骤：

1. 逐行处理字段，手动验证类型转换 #

不要直接把读取到的字段数组丢给DataRow，而是单独处理PLANTJAAR（以及其他数值类型列，比如OPP、TON系列）的转换，确保只有有效的整数/小数才能存入DataTable。示例代码如下：

Do Until parser.EndOfData = True
    Dim fields As String() = parser.ReadFields()
    ' 处理PLANTJAAR列（索引9，因为从0开始计数，它是第10个列）
    Dim plantJaarStr As String = fields(9).Trim() ' 额外做一次Trim，确保清除所有空白
    Dim plantJaarInt As Integer
    
    ' 尝试转换，失败时可以设置默认值或记录错误
    If Not Integer.TryParse(plantJaarStr, plantJaarInt) Then
        ' 这里根据你的业务需求选择处理方式：
        ' 方式1：设为默认值（比如0）
        plantJaarInt = 0
        ' 方式2：抛出明确错误，定位问题行
        ' Throw New Exception($"第 {parser.LineNumber} 行的PLANTJAAR值 '{plantJaarStr}' 不是有效整数")
        ' 方式3：跳过该行
        ' Continue Do
    End If

    ' 处理其他数值类型列（比如OPP是索引13，TON系列从索引27开始）
    Dim oppValue As Decimal
    If Not Decimal.TryParse(fields(13).Trim(), oppValue) Then
        oppValue = 0D
    End If

    ' 创建新行并逐个赋值，避免自动转换的坑
    Dim newRow As DataRow = datatabel.NewRow()
    For i As Integer = 0 To fields.Length - 1
        Select Case i
            Case 9 ' PLANTJAAR
                newRow(i) = plantJaarInt
            Case 13, 27 To 39 ' OPP和所有TON相关列
                If i = 13 Then
                    newRow(i) = oppValue
                Else
                    Dim decVal As Decimal
                    Decimal.TryParse(fields(i).Trim(), decVal)
                    newRow(i) = decVal
                End If
            Case Else ' 字符串类型列直接赋值
                newRow(i) = fields(i)
        End Select
    Next

    datatabel.Rows.Add(newRow)
Loop

2. 排查CSV文件的实际内容 #

你说没有空行，但可能存在肉眼看不到的问题：

• 用Notepad++打开CSV，开启「视图→显示符号→显示所有字符」，检查PLANTJAAR列的单元格是否有隐藏的换行符、制表符或特殊空白
• 确认是否有非数字内容，比如<>、N/A、-这类占位符，这些都会导致转换失败
• 有些单元格看起来是空的，但实际是""（空字符串），这也会触发类型转换错误

3. 添加错误日志定位问题行 #

如果还是找不到问题，可以在循环里加异常捕获，记录出错的行号和字段内容，快速定位问题单元格：

Do Until parser.EndOfData = True
    Try
        ' 这里放上面的处理逻辑
    Catch ex As Exception
        Console.WriteLine($"第 {parser.LineNumber} 行导入失败：{ex.Message}")
        Console.WriteLine("该行字段内容：" & String.Join(" | ", parser.ReadFields()))
        Continue Do ' 跳过错误行，继续处理其他行
    End Try
Loop

通过以上方法，你应该能解决这个类型转换的问题，同时也能避免后续其他数值列可能出现的类似错误。

内容的提问来源于stack exchange，提问作者Gideon