查找选中复选框的行 DataGridView

Question

我输入了一些代码来查找在我的 DataGridView 中选中了哪些复选框，但由于某种原因这不起作用。

我已经遍历 DataGridView 中的行：

For Each row As DataGridViewRow In dgv_assets.Rows

Next

然后在这里我将第一列转换为 DataGridViewCheckBoxCell：

For Each row As DataGridViewRow In dgv_assets.Rows

    Dim chk As DataGridViewCheckBoxCell = DirectCast(row.Cells(0), DataGridViewCheckBoxCell)

Next

然后我正在检查所有已选中的复选框：

For Each row As DataGridViewRow In dgv_assets.Rows

    Dim chk As DataGridViewCheckBoxCell = DirectCast(row.Cells(0), DataGridViewCheckBoxCell)

    If chk.Value = chk.TrueValue Then
        MessageBox.Show("Checked")
    End If

Next

由于某种原因，即使复选框被选中或取消选中，它们都会点击 MessageBox。

Answer 1

你的代码几乎是正确的，我猜是转换的问题。

For Each row As DataGridViewRow In DataGridView1.Rows
    Dim chk As DataGridViewCheckBoxCell = row.Cells(Column1.Name)
    If chk.Value IsNot Nothing AndAlso chk.Value = True Then
        MessageBox.Show("Checked: " + chk.RowIndex.ToString())
    End If
Next

Column1 应该是您所引用的DataGridViewCheckBoxCell 的列名。

Answer 2

你可以用这种简单的方式来做。

   For i As Integer = 0 To dtg.RowCount - 1
        If dtg.Item(0, i).Value = "True" Then
            MsgBox("check")
        End If
    Next

希望对你有所帮助

Answer 3

这里是一个使用语言扩展方法的例子

表单级变量

Private Const CheckBoxColName As String = "Process"

将以下内容放在代码模块中，而不是表单或类中

<System.Diagnostics.DebuggerStepThrough()> _
<Runtime.CompilerServices.Extension()> _
Public Function CheckBoxCount(ByVal GridView As DataGridView, ByVal ColumnIndex As Integer, ByVal Checked As Boolean) As Integer
   Return (From Rows In GridView.Rows.Cast(Of DataGridViewRow)() Where CBool(Rows.Cells(ColumnIndex).Value) = Checked).Count
End Function

使用扩展方法使用上面的私有变量CheckBoxColName，它是DataGridView中列的名称作为DataGridViewCheckBoxColumn

If DataGridView1.CheckBoxCount(CheckBoxColName, True) > 0 Then
    Dim Rows = DataGridView1.GetCheckedRows1(CheckBoxColName)
    For Each Row In Rows
        Console.WriteLine(Row.Cells.Item(1).Value)
    Next
End If

如果你想使用列索引而不是列名，下面会这样做

<System.Diagnostics.DebuggerStepThrough()> _
<Runtime.CompilerServices.Extension()> _
Public Function CheckBoxCount(ByVal GridView As DataGridView, ByVal ColumnIndex As Integer, ByVal Checked As Boolean) As Integer
   Return (From Rows In GridView.Rows.Cast(Of DataGridViewRow)() Where CBool(Rows.Cells(ColumnIndex).Value) = Checked).Count
End Function

注意两者都允许您检查或取消检查。

以下获取实际行

   <System.Diagnostics.DebuggerStepThrough()> _
   <Runtime.CompilerServices.Extension()> _
   Public Function GetCheckedRows1(ByVal GridView As DataGridView, ByVal ColumnName As String) As List(Of DataGridViewRow)
      Dim Temp = (From Rows In GridView.Rows.Cast(Of DataGridViewRow)() Where Not Rows.IsNewRow).ToList
      Return (From SubRows In Temp Where CBool(SubRows.Cells(ColumnName).Value) = True).ToList
   End Function

Answer 4

您必须首先验证 TrueValue 不是 null ，因为根据文档，默认值为 null。然后检查是否为真。

这里文档：TrueValue

Answer 5

添加名称为 CK1 的 CheckBox 并添加名称为 Dgrd 的 DataGridView 并且第一个单元格必须是 DataGridViewCheckBoxCell 并添加代码：

  Private Sub CK1_CheckedChanged(sender As Object, e As EventArgs) Handles CK1.CheckedChanged
    If CK1.Checked = True Then
        Try
            Dim I As Integer
            For I = 0 To Dgrd.Rows.Count - 1
                Dim CHKRow As DataGridViewCheckBoxCell = Dgrd.Rows(I).Cells(0)
                If CHKRow.Value = False Then
                    CHKRow.Value = True
                End If
            Next
        Catch ex As Exception
        End Try
    Else
        Try
            Dim I As Integer
            For I = 0 To Dgrd.Rows.Count - 1
                Dim CHKRow As DataGridViewCheckBoxCell = Dgrd.Rows(I).Cells(0)
                If CHKRow.Value = True Then
                    CHKRow.Value = False
                End If
            Next
        Catch ex As Exception
        End Try
    End If
End Sub