Buenas tardes gente de Foros del Web, yo iniciando en el mundo de Visual Basic NET, me he atorado en lo siguiente ojala y me puedan echar la mano:
Estoy haciendo uso de un DataGridView en el cual voy agregando productos que vienen de un TextBox y un Button hasta acá hay la llevo lo que ahora ya no puedo es hacer avanzar el indicador del DataGridView para despues hacer un cambio en una celda del renglón que se supone es el último porque el ingreso de los productos lo hago pero el indicador se queda en el primer renglón, a continuación podre mi código que tengo y ojala me halla dado a explicar, un gran saludo.
Código:
Private Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles btnAgregar.Click
actualizar()
txtProductos.Text = ""
End Sub
Private Sub actualizar()
Static cont As Integer
Dim iBusqueda As Integer
Dim encontroid As Integer
encontroid = 0
iBusqueda = 0
If YaVendi = True Then
cont = 0
YaVendi = False
End If
conectar()
If cont < 15 Then
Dim nota As String = "select idproducto, nombre, preciop, existencia from productos03 where idproducto = '" & txtProductos.Text & "' "
Dim Adap As New SqlCommand(nota, conex)
Dim DR As SqlDataReader
DR = Adap.ExecuteReader
While iBusqueda < cont And encontroid = 0
If txtProductos.Text = DgVenta.Item(0, iBusqueda).Value Then
DgVenta.Item(3, iBusqueda).Value = DgVenta.Item(3, iBusqueda).Value + 1
encontroid = 1
End If
iBusqueda = iBusqueda + 1
End While
If encontroid = 0 Then
While DR.Read
DgVenta.Item(0, cont).Value = DR("idproducto")
DgVenta.Item(1, cont).Value = DR("nombre")
DgVenta.Item(2, cont).Value = DR("preciop")
DgVenta.Item(3, cont).Value = 1
DgVenta.Item(4, cont).Value = DR("existencia")
DgVenta.Item(5, cont).Value = DR("preciop")
End While
cont = cont + 1
End If
conex.Close()
End If
End Sub
Private Sub DgVenta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles DgVenta.KeyPress
If ((AscW(e.KeyChar))) = 122 Then
DgVenta.Item(4, DgVenta.CurrentCell.RowIndex).Value = 777
End If
End Sub