将CSV导入DataGridView时CheckBox列空值报错的解决方案及导出优化咨询

我来帮你搞定这个问题——你的核心痛点是DataGridView里的第10列（CheckBox列）默认值为Nothing，导出CSV时会被转成空字符串，重新导入时因为CheckBox列不识别空值而报错。咱们直接从导出环节入手，强制让这一列始终输出0或1就能解决问题。

修改导出CSV的代码 #

你只需要在转换单元格值的逻辑里，给第10列（注意DataGridView的列索引是从0开始的，所以第10列对应的索引是9）加个特殊判断：如果单元格值是Nothing，就强制输出"0"（对应未勾选的状态），否则保留原有的0或1值。修改后的完整代码如下：

Dim rows = From row As DataGridViewRow In DataGridView1.Rows.Cast(Of DataGridViewRow)() 
           Where Not row.IsNewRow 
           Select Array.ConvertAll(row.Cells.Cast(Of DataGridViewCell).ToArray, 
               Function(c) 
                   ' 专门处理第10列（索引9）的空值问题
                   If c.ColumnIndex = 9 Then
                       ' 值为Nothing时输出"0"，否则输出原数值的字符串
                       Return If(c.Value IsNot Nothing, c.Value.ToString, "0")
                   Else
                       ' 其他列保持原有逻辑，空单元格输出空字符串
                       Return If(c.Value IsNot Nothing, c.Value.ToString, "")
                   End If
               End Function)

Using sw As New IO.StreamWriter(Path)
    For Each r In rows
        sw.WriteLine(String.Join(",", r))
    Next
End Using

关键改动说明 #

• 在Array.ConvertAll的转换函数中，新增了列索引判断：
  • 针对第10列（索引9），兜底处理Nothing值为"0"；
  • 其他列继续保持你原来的逻辑，空单元格输出空字符串。

可选：给导入代码加个容错保险 #

虽然搞定导出后导入就不会报错了，但如果想让导入逻辑更健壮，也可以在添加行之前对第10列的空值做兜底，避免万一CSV里还是有空值的情况：

Try
    Dim streamReader As IO.StreamReader = New IO.StreamReader(FullPath)
    ' 读取CSV内容
    While streamReader.Peek() <> -1
        rowvalue = streamReader.ReadLine()
        cellvalue = rowvalue.Split(","c)
        ' 处理第10列（索引9）的空值
        If cellvalue.Length > 9 AndAlso String.IsNullOrEmpty(cellvalue(9)) Then
            cellvalue(9) = "0"
        End If
        DataGridView1.Rows.Add(cellvalue)
    End While
    streamReader.Close()
Catch ex As Exception
    MsgBox($"导入失败：{ex.Message}")
End Try

这样双重保障，就彻底解决这个问题啦。

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