datagridnoactivecellcolumn.vb

实现企业的资料管理

Public Class DataGridNoActiveCellColumn
    Inherits DataGridTextBoxColumn
    Private SelectedRow As Integer = -1
    Protected Overloads Overrides Sub Edit( _
    ByVal source As CurrencyManager, _
    ByVal rowNum As Integer, ByVal bounds As Rectangle, _
    ByVal read As Boolean, ByVal instantText As String, _
    ByVal cellIsVisible As Boolean)
        If SelectedRow > -1 And SelectedRow _
        < source.List.Count + 1 Then
            Me.DataGridTableStyle.DataGrid.UnSelect(SelectedRow)
        End If
        SelectedRow = rowNum
        Me.DataGridTableStyle.DataGrid.Select(SelectedRow)
    End Sub
End Class