Hay alguien que tenga ganas de ayudar

candela
10 de Febrero del 2004
Hola que tal estoy tratando de hacer un formulario de facturacion en que al cargar el codigo de
barras en "txtCodigo" se vizualicen las caracteristicas del producto hasta mostrar las
caracteristicas del primer producto ingresado en la caja de texto voy bien el problema
es que no se como hacer para que a partir del segundo producto ingresado las caracteristicas
de este se muestren en la siguiente fila . En sintesis Por el momento lo unico que puedo hacer
es ver las caracteristicas del producto en la primer fila del "MshFlexgrid"
Aqui va el cidigo que logre hasta ahora
Gracias de Antemano








Private Sub Form_Load()
Dim titulos As String
Grid.TextMatrix(0, 1) = "Articulo"
Grid.TextMatrix(0, 2) = "Cantidad"
Grid.TextMatrix(0, 3) = "U.M."
Grid.TextMatrix(0, 4) = "Descripción"
Grid.TextMatrix(0, 5) = "I.V.A."
Grid.TextMatrix(0, 6) = "P.Unitario"
Grid.TextMatrix(0, 7) = "Dto."
Grid.TextMatrix(0, 8) = "Importe Total"
titulos = "| Articulo | Cantidad | U.M. | Descripción | I.V.A. | P.Unitario | |Dto. | Importe Total |"
Grid.FormatString = titulos




End Sub

Private Sub TxtCodigo_Change()
Dim text As String
Dim i As Integer
Dat_Libreria.Recordset.Index = "ID"
Dat_Libreria.Recordset.Seek "=", txtCodigo.text


If Not Dat_Libreria.Recordset.NoMatch Then

Grid.TextMatrix(1, 1) = "" & Dat_Libreria.Recordset("Articulo")
Grid.TextMatrix(1, 2) = "" & Dat_Libreria.Recordset("Cantidad")

Grid.TextMatrix(1, 4) = "" & Dat_Libreria.Recordset("Nombre")
Grid.TextMatrix(1, 6) = "" & Dat_Libreria.Recordset("Precio")
txtCodigo.text = text




Else

'MsgBox "No se ha encontrado articulo con esa descripción"
Dat_Libreria.Recordset.Index = ""
End If
'End If
End Sub

Baltasar
10 de Febrero del 2004
Candela, estás comprobando si la gente contesta a los mensajes anteriores? Yo ya he contestado en otros anteriores, pero parece ser que no los miras.

ojeador
10 de Febrero del 2004
alguien preguntó lo mismo hace poco, mira aqui la respuesta

http://www.programacion.com/foros/32/msg/82293/

Ernesto
10 de Febrero del 2004
Lo que pasa es que dejas fijo el numero de fila, se soluciona de la sig. manera
Grid.TextMatrix(Grid.rows-1,Columna)="" & Dat_