datagridnoactivecellcolumn.vb

来自「数据管理,学习数据库的好方法,可以试试呀 人力资源信息管理系统全套」· VB 代码 · 共 14 行

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