Candela
08 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