datagridnoactivecellcolumn.vb

来自「vfp开发的进销存管理系统,运行相应系统的Setup安装程序」· VB 代码 · 共 17 行

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