MoveLast, MoveNext - Visual Basic .NET - Ответ 4167461

Imports System.Data.OleDb
Public Class Form1
    Dim LastPos As Integer
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        LoadAll() ' процедура Загружает таблицу [Pensioner] в DataGridView1
 
        For i = 0 To DataGridView1.RowCount - 1 ' оказывается, что переменную  i даже НЕ НАДО ОБЪЯВЛЯТЬ
            On Error Resume Next
            ComboBox1.Items.Add(DataGridView1.Item(0, i).Value) ' информация выбирается 
        Next i ' из 0-го столбца the control DataGridView1
        ComboBox1.SelectedIndex = 0
        DataGridView1.ReadOnly = True
    End Sub
 
    Sub LoadAll() 'Процедура чтения всей таблицы [Pensioner] из базы 
        ' MS Access "My_Pension.mdb" 
        DT.Clear() 'Очищаем таблицу DT должно быть объявлено в НАЧАЛЕ КЛАССА Form1
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM [Pensioner]", Con) ' Указываем 
        'строку запроса и привязываем к соединению. 
        Con.Open() ' Открываем соединение 
        SqlCom.ExecuteNonQuery() 'Выполняем запрос
        DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        DA.Fill(DT) ' Заполняем таблицу результатми
        Me.DataGridView1.DataSource = DT ' Привязываем Грид к источнику данных
        ComboBox1.DataSource = DT
        ComboBox1.DisplayMember = "NumPensCertificate" ' "Имя_поля_которое_нужно_отобразить"
 
        '++- DataGridView1.Rows(5).Selected = True ' выделяет до редактирования,
        ' но ПОСЛЕ РЕДАКТИРОВАНИЯ ВЫБРАНА только ячейка 0,0
        Con.Close() ' Закрываем соединение
        '++- DataGridView1.Rows(4).Selected = True ' выделяет до редактирования,
        ' но ПОСЛЕ РЕДАКТИРОВАНИЯ ВЫБРАНА только ячейка 0,0
        Me.DataGridView1.ClearSelection()
        Me.DataGridView1.CurrentCell = Me.DataGridView1.Item(0, LastPos)
        Me.DataGridView1.Rows(LastPos).Selected = True
    End Sub
 
    Public Sub New() ' конструктор класса Form1
        ' Этот вызов является обязательным для конструктора.
        InitializeComponent()
    End Sub
 
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Edit = 1
        LastPos = Me.DataGridView1.CurrentCellAddress.Y
        With SubFormForEnter2
            .Label11.Text = DataGridView1.CurrentRow.Cells(0).Value
            .MaskTxtBoxtxtNumPensCertificate.Text = DataGridView1.CurrentRow.Cells(0).Value
            .txtLastName.Text = DataGridView1.CurrentRow.Cells(1).Value
            .Show()
        End With
        SelectRowAfterEdit()
    End Sub
 
    Private Sub DataGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        MsgBox("Event CellEndEdit") ' НИКОГДА НЕ СРАБАТЫВАЕТ, 18.02.2013 23:30, 20.02.2013 в 21:43
    End Sub
 
    Private Sub SelectRowAfterEdit()
        Dim Column2 As Byte
        Dim iFind2 As Integer = iEditedRow '
        Column2 = 0
        For Each Row2 In DataGridView1.Rows
            If (Row2.Cells(Column2).Value = iNumPensCertificate) Then
                DataGridView1.CurrentCell = Row2.Cells(Column2)
                '+MsgBox("Номер Пенсионного удостверения = " + CStr(iNumPensCertificate) +
                '       vbCrLf + " в нолевом столбце " +
                '       vbCrLf + "Founded")
                DataGridView1.Rows(Row2.Index).Selected = True ' найденная строка
                ' будет выделена синей полосой
            End If
        Next
    End Sub
 
End Class