Private Sub COGNOMETextBox_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles COGNOMETextBox.KeyUp
Dim Riga As DataGridViewRow
Try
If e.KeyCode = Keys.Escape Then
DataGridView1.Visible = False
Exit Sub
End If
If e.KeyCode = Keys.Enter Then
Me.TAB1_CLIENTITableAdapter.Fill(Me.DataSet1.TAB1_CLIENTI)
Riga = DataGridView1.CurrentRow()
Me.COGNOMETextBox.Text = Riga.Cells(2).Value
DataGridView1.Visible = False
Exit Sub
End If
If e.KeyCode = Keys.Down Then
DataGridView1.Focus()
Else
Me.TAB1CLIENTIBindingSource.Filter = "COGNOME LIKE '" & Replace(CStr(COGNOMETextBox.Text), "'", "''") & "%'"
Me.TAB1CLIENTIBindingSource.Sort = "COGNOME Desc"
DataGridView1.Visible = True
End If
Catch ex As Exception
MessageBox.Show("Si è verificato il seguente errore: " & ex.Message, "Attenzione", MessageBoxButtons.OK)
End Try
End Sub
Private Sub DataGridView1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown
Dim Riga As DataGridViewRow
Try
If e.KeyCode = Keys.Escape Then
DataGridView1.Visible = False
Exit Sub
End If
If e.KeyCode = Keys.Enter Then
Me.TAB1_CLIENTITableAdapter.Fill(Me.DataSet1.TAB1_CLIENTI)
Riga = DataGridView1.CurrentRow()
Me.IDTextBox.Text = Riga.Cells(1).Value
Me.COGNOMETextBox.Text = Riga.Cells(2).Value
Me.NOMETextBox.Text = Riga.Cells(3).Value
Me.DENOMINAZIONETextBox.Text = Riga.Cells(4).Value
' Me.INDIRIZZO_RESIDENZATextBox.Text = Riga.Cells(4).Value
DataGridView1.Visible = False
Exit Sub
End If
If e.KeyCode = Keys.Down Then
DataGridView1.Focus()
Else
Me.TAB1CLIENTIBindingSource.Filter = "COGNOME LIKE '" & Replace(CStr(COGNOMETextBox.Text), "'", "''") & "%'"
Me.TAB1CLIENTIBindingSource.Sort = "COGNOME Desc"
DataGridView1.Visible = True
End If
Catch ex As Exception
MessageBox.Show("Si è verificato il seguente errore: " & ex.Message, "Attenzione", MessageBoxButtons.OK)
End Try
End Sub