vb.net – 如何在CheckBox上刷新绑定DataGridView单击

发布时间：2020-12-17 07:20:07 所属栏目：百科来源：网络整理

导读：目标我需要一种方法通过单击绑定的DataGridView中的CheckBox将项目设置为已完成.完成后,由于DataView的行过滤器,不再从DataGridView中看到该项. 说明我有一个绑定到DataView的DataGridView. Private Sub LoadLispImprovements() Private ViewLispImproveme

目标

我需要一种方法通过单击绑定的DataGridView中的CheckBox将项目设置为已完成.完成后,由于DataView的行过滤器,不再从DataGridView中看到该项.

说明

我有一个绑定到DataView的DataGridView.

Private Sub LoadLispImprovements()
    Private ViewLispImprovements As New DataView
    ViewLispImprovements.Table = Programs.Tables("dtLispImprovements")
    ViewLispImprovements.RowFilter = "Completed=0"
    Lisp_dgvImprovements.DataSource = ViewLispImprovements
End Sub

此DataView的表设置为以下DataTable：

此DataTable的主键设置为正确的字段.完成字段有一个红色方块,只是为了向您展示我将其设置为布尔值.

看看我的DataGridView：

这是我点击复选框的地方,该项目应该被过滤掉(因为没有勾选ShowAll复选框)

问题

当我单击CheckBox时,该项目保留在DataGridView中.为了将其过滤掉,我必须选择另一行.看一看：

当我改变行时,它最终会消失：

在选中完成的复选框后,如何让它立即删除？

P.S：是的我有CurrentCellDirtyStateChanged事件处理程序.

Private Sub Lisp_dgvImprovements_CurrentCellDirtyStateChanged(sender As Object,e As System.EventArgs) Handles Lisp_dgvImprovements.CurrentCellDirtyStateChanged
    If Lisp_dgvImprovements.IsCurrentCellDirty Then
        Lisp_dgvImprovements.CommitEdit(DataGridViewDataErrorContexts.Commit)
    End If
End Sub

解决方法

您可以通过在更改单元格的值时结束DataRow的编辑来实现此目的.

Private Sub Lisp_dgvImprovements_CurrentCellDirtyStateChanged(sender As Object,e As System.EventArgs) Handles Lisp_dgvImprovements.CurrentCellDirtyStateChanged
    If (Me.Lisp_dgvImprovements.IsCurrentCellDirty) Then
        Me.Lisp_dgvImprovements.CommitEdit(DataGridViewDataErrorContexts.Commit)
    End If
End Sub

Private Sub Lisp_dgvImprovements_CellValueChanged(sender As System.Object,e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Lisp_dgvImprovements.CellValueChanged
    '                    |-- The index of boolean DataGridViewColumn
    If ((e.ColumnIndex = 0) AndAlso (e.RowIndex > -1)) Then
        With Me.Lisp_dgvImprovements.Rows(e.RowIndex)
            If (Not .IsNewRow) Then
                With DirectCast(.DataBoundItem,DataRowView).Row
                    '     |-- The index of boolean DataColumn
                    .Item(0) = True
                    .EndEdit()
                End With
            End If
        End With
    End If
End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!