Saludos amigos requiero de su experiencia y ayuda trabajo con VB6 SP6 y SQl2005 y como coneccion uso ODBC
tengo el siguiente problema yo voy cargando los datos en unos text y posteriormente los voy pasando a un flexgrig esto lo utilizo para por ejemplo hacer una inclusion de una factura en un sistema de inventario, resulta que meto las lineas una a una hasta aqui todo va bien pero si se me repite una linea el programa verifica si ya existe y le suma a lo ingresado la nueva cantidad, el problema es que despues de que se hace esto si agrego una nueva linea el programa me reemplaza la primera linea con la informacion nueva cuando lo que requiero es que la informacion nueva se grabe en la ultima linea en blanco, adjunto el codigo que utilizo si me ayudan se los agradezco ya que he intentado de todo y no le llego
Dim rsColor As New ADODB.Recordset
Dim rsClasificacion As New ADODB.Recordset
Dim ExistePrevia As Boolean
Dim Sqlins As String
'Revisa el flex para determinar si ya estaba incluido el articulo
ExistePrevia = VerificaPrevia(txtCodigoSubArticulo.Text, Flex.Rows - 1)
Flex.TextMatrix(Flex.Row, 0) = txtCodigoSubArticulo.Text
Flex.TextMatrix(Flex.Row, 1) = txtCodBarrasArticulo.Text
Flex.TextMatrix(Flex.Row, 2) = txtNombre.Text
Flex.TextMatrix(Flex.Row, 6) = txtRack.Text
Flex.TextMatrix(Flex.Row, 7) = txtEstante.Text
Flex.TextMatrix(Flex.Row, 8) = txtArticulo.Text
Flex.TextMatrix(Flex.Row, 9) = txtClasificacion.Text
Flex.TextMatrix(Flex.Row, 10) = TxtProyecto.Text
Flex.TextMatrix(Flex.Row, 3) = rsClasificacion!Clasificacion
Flex.TextMatrix(Flex.Row, 4) = rsColor!Color
'Si Existe lo Suma sino solo lo agrega
If ExistePrevia = False Then
Flex.TextMatrix(Flex.Row, 5) = txtCantidad.Text
'Agrega una nueva Línea y se posiciona en ella
Flex.Rows = Flex.Rows + 1
'Flex.Col = 0
Flex.Row = Flex.Rows - 1
' Flex.SetFocus
'SendKeys "{vbKeyPageDown}"
Else ' De aqui para abajo es donde esta el problema
Flex.TextMatrix(Flex.Row, 5) = CVDouble(Flex.TextMatrix(Flex.Row, 5)) + txtCantidad.Text
Flex.Rows = Flex.Rows + 1
Flex.Col = 0
Flex.Row = Flex.Rows - 1
Flex.SetFocus
SendKeys "{{PGDN}}" '"{vbKeyPageDown}"
End If
'Limpiar los campos
txtColor.Text = ""
txtCodBarrasArticulo.Text = ""
txtCodBarrasUbicacion.SetFocus
txtExistencia.Text = ""
txtCodBarrasUbicacion.SetFocus
