CSV导入Dataset异常：仅单列成功其余为DBNull求助

嘿，我来帮你搞定这个CSV导入的头疼问题！首先我一眼就看到你代码里有个明显的小纰漏：你创建DataTable时指定的TableName是"ImportedData"，但后续操作却用了"ImportDataTable"——这就相当于你建了个叫“张三”的表，却一直去操作“李四”的表，不出问题才怪！先把表名统一，比如都改成"ImportedData"：

dset.Tables.Add(New DataTable With {.TableName = "ImportedData"})
dset.Tables("ImportedData").Columns.Add("ID", GetType(String))
dset.Tables("ImportedData").Columns.Add("Name", GetType(String))
' 其他列照着这个格式加就行

接下来是核心问题：仅一列成功导入，其余都是DBNull，大概率是分隔符不匹配或者没处理好带引号的字段，下面给你两种亲测好用的解决方案：

方案一：用TextFieldParser（推荐，简单直接） #

这是.NET自带的专门处理文本文件的工具，能完美识别带引号的字段（比如"Smith, Alice"这种含分隔符的内容），上手也简单：

Imports Microsoft.VisualBasic.FileIO

' 先把表清空（如果之前有数据的话）
dset.Tables("ImportedData").Clear()

' 读取CSV文件
Using parser As New TextFieldParser("你的CSV文件完整路径")
    parser.TextFieldType = FieldType.Delimited
    parser.SetDelimiters(",") ' 这里改成你CSV实际用的分隔符！比如分号";"或者制表符vbTab
    parser.HasFieldsEnclosedInQuotes = True ' 必须开这个，不然带引号的字段会被拆错

    ' 如果你的CSV第一行是表头，就跳过这行
    parser.ReadLine()

    ' 逐行读取处理
    While Not parser.EndOfData
        Try
            Dim fields As String() = parser.ReadFields()
            ' 先检查读取到的字段数和你定义的列数是否一致
            If fields.Length = dset.Tables("ImportedData").Columns.Count Then
                Dim newRow As DataRow = dset.Tables("ImportedData").NewRow()
                newRow("ID") = fields(0)
                newRow("Name") = fields(1)
                ' 其他列依次对应上就行
                dset.Tables("ImportedData").Rows.Add(newRow)
            End If
        Catch ex As MalformedLineException
            ' 碰到格式错的行就跳过，顺便打个日志
            Console.WriteLine($"跳过格式异常的行：{ex.Message}")
        End Try
    End While
End Using

方案二：用OleDbConnection（适合复杂格式） #

如果你的CSV有特殊编码，或者格式比较复杂，用OleDb来读会更稳，注意连接字符串要配置对：

Imports System.Data.OleDb

' 构造连接字符串，注意替换成你的CSV路径
Dim csvPath As String = "你的CSV文件完整路径"
Dim connString As String = $"Provider=Microsoft.ACE.OLEDB.12.0;Data Source={IO.Path.GetDirectoryName(csvPath)};Extended Properties=""Text;HDR=Yes;FMT=Delimited(,)"";"
' 解释下参数：HDR=Yes表示第一行是表头；FMT=Delimited(,)表示分隔符是逗号，改成你实际的

Using conn As New OleDbConnection(connString)
    conn.Open()
    ' 执行查询读取整个CSV
    Dim cmd As New OleDbCommand($"SELECT * FROM [{IO.Path.GetFileName(csvPath)}]", conn)
    Dim adapter As New OleDbDataAdapter(cmd)
    ' 直接把数据填充到你的DataTable里，连列都不用手动加（只要表头和你定义的列名匹配）
    adapter.Fill(dset.Tables("ImportedData"))
End Using

最后再给你几个排查小技巧 #

1. 确认分隔符：别光看Excel里的表格，打开CSV用记事本看，实际是逗号、分号还是制表符？代码里必须和这个一致！
2. 检查带引号的字段：如果有字段是用引号包裹的（比如包含逗号的内容），一定要开启HasFieldsEnclosedInQuotes或者在OleDb连接字符串里默认处理，不然会把一个字段拆成多个，导致后面的列全是空值。
3. 列数匹配：确保CSV的列数和你在DataTable里定义的列数完全一致，少一列都会导致后面的列变成DBNull。

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