Comments by geice - CodeProject

geice 13-Mar-12 14:20pm View

and did not work

geice 13-Mar-12 14:19pm View

this code had already tested

geice 12-Mar-12 9:39am View

is not what I need.
need that every time I press enter, it will enter that cell to cell and the column next to the finish line, not down.

geice 10-Mar-12 13:34pm View

this code works good, but not for what I need.
but already managed to solve my problem with the code otherwise.
I appreciate the attention.

geice 10-Mar-12 13:19pm View

this code works good, but not for what I need.
but already managed to solve my problem with the code otherwise.
I appreciate the attention.

geice 9-Mar-12 6:26am View

this line used for this very thing.

geice 8-Mar-12 7:05am View

SendKeys.Send ("{ENTER}")

geice 8-Mar-12 7:04am View

yes, this line used for this very thing.

geice 7-Mar-12 9:57am View

are entering only have to press a Tab and Enter to save, I would like to press the enter key at the end of typing to enter

Private Sub DadoUnico_KeyDown (ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DadoUnico.KeyDown
If e.KeyCode = Keys.Enter Then
SendKeys.Send ("{ENTER}")
DadoUnico.Enabled = True
try

cn.Open ()
cd = New SqlCommand ("sp_I_Cad_Unioinsere", cn)
cd.CommandType = Data.CommandType.StoredProcedure
cd.Parameters.Add ("@ idlog" SqlDbType.VarChar). Value = frmCad_Cadastro.Codigo.Text
cd.Parameters.AddWithValue ("@ bikelog" frmCad_Cadastro.DadoUnico.CurrentRow.Cells ("Bike_Log"). Value)
cd.Parameters.AddWithValue ("@ ModeloLog" frmCad_Cadastro.DadoUnico.CurrentRow.Cells ("Modelo_Log"). Value)
cd.Parameters.AddWithValue ("@ CorLog" frmCad_Cadastro.DadoUnico.CurrentRow.Cells ("Cor_Log"). Value)
cd.Parameters.AddWithValue ("@ NumSerieLog" frmCad_Cadastro.DadoUnico.CurrentRow.Cells ("NumSerie_Log"). Value)
cd.Parameters.AddWithValue ("@ AjuSisRetLog" frmCad_Cadastro.DadoUnico.CurrentRow.Cells ("AjuSisRet_Log"). Value)
cd.Parameters.AddWithValue ("@ OleoPrefLog" frmCad_Cadastro.DadoUnico.CurrentRow.Cells ("OleoPref_Log"). Value)
cd.Parameters.AddWithValue ("@ PresPneuLog" frmCad_Cadastro.DadoUnico.CurrentRow.Cells ("PresPneu_Log"). Value)
cd.Parameters.AddWithValue ("@ AltFreiosLog" frmCad_Cadastro.DadoUnico.CurrentRow.Cells ("AltFreios_Log"). Value)
cd.Parameters.AddWithValue ("@ PresAmorLog" frmCad_Cadastro.DadoUnico.CurrentRow.Cells ("PresAmor_Log"). Value)
cd.Parameters.AddWithValue ("@ PresSuspLog" frmCad_Cadastro.DadoUnico.CurrentRow.Cells ("PresSusp_Log"). Value)

cd.ExecuteNonQuery ()
MsgBox ("successfully inserted")

Catch ex As Exception
MsgBox ("Error:" & Err.Description)
end Try
cn.Close ()
end If

Comments by geice (Top 9 by date)