AYUDENME VISUAL.NET
Publicado por Jeremias (1 intervención) el 07/10/2014 23:31:38
muy buena tardes a todos espero me puedan ayudar en este pequeño dilema y gracias de antemano.
estoy desarrollando un sistema de ventas y en este form inscribo el ruc del cliente lo que estoy haciendo es que todo los controles funcionen con el teclado, como muestra en la imagen en la parte inferior donde esta la leyenda.... la cuestión es la siguiente...
presiono F5 para un nuevo ingreso, e ingreso todos los datos una vez llenado presiono F10 para guardar los datos y luego me sale un msgbox indicando que los datos se guardaron con exito, luego se actualiza la grilla y muestra el dato ingresado y cuando quiero recorrer la grilla me muestra el cuadro de mover, minimizar y cerrar...
he intentado quitar eso pero no puedo ayudenme por favor... la verdad no se que evento hace que salga eso...
este es mi codigo del boton guardar..
estoy desarrollando un sistema de ventas y en este form inscribo el ruc del cliente lo que estoy haciendo es que todo los controles funcionen con el teclado, como muestra en la imagen en la parte inferior donde esta la leyenda.... la cuestión es la siguiente...
presiono F5 para un nuevo ingreso, e ingreso todos los datos una vez llenado presiono F10 para guardar los datos y luego me sale un msgbox indicando que los datos se guardaron con exito, luego se actualiza la grilla y muestra el dato ingresado y cuando quiero recorrer la grilla me muestra el cuadro de mover, minimizar y cerrar...
he intentado quitar eso pero no puedo ayudenme por favor... la verdad no se que evento hace que salga eso...
este es mi codigo del boton guardar..
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
Try
Dim j As Integer = 0Dim a As String
Dim existe = FalsebtnBuscaAct = FalseFor Each row As DataGridViewRow In Me.dgwRazSoc.Rows
'If Convert.ToString(lblCodigo.Text).Equals(FrmPedido.dgwDetalle.CurrentRow.Cells(0).Value) Then
'VERIFICA SI EL VALOR DEL LA CELDA CODIGO ES IGUAL AL VALOR DE LBLCODIGO (si el codigo ya existe)
a = Convert.ToString(Me.dgwRazSoc.Rows(j).Cells(1).Value)
If CStr(txtNumRuc.Text) = a Then
existe = TrueEnd If
j += 1
Next
If (existe = True) Then
'operacion = Transacciones.Actualizar
objCliente.ActualizarRuc(txtCodigo.Text, txtNumRuc.Text, txtNomRuc.Text, txtDirecc.Text, cboDistri.SelectedValue)
MessageBox.Show("Proceso se Realizo con exito...", btnGuardar.Text & " Datos", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
Else
objCliente.AdicionarRuc(txtNumRuc.Text, txtNomRuc.Text, txtDirecc.Text, cboDistri.SelectedValue)
MessageBox.Show("Proceso se Realizo con exito...", btnGuardar.Text & " Datos", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
End If
dgwRazSoc.DataSource = objCliente.ListarRuc().DefaultView
btnGuardar.Enabled = 0
Limpiarcontroles()
dgwRazSoc.Focus()
Catch ex As Exception
MsgBox("Error:" & ex.Message, MsgBoxStyle.Critical, "Alerta de Error")
End Try
End Sub
Valora esta pregunta
0
