mechita
08 de Agosto del 2003

hola!!!!!!!
gracias por leer mi mensaje, espero explicarme bien para ke puedas ayudarme con mayor facilidad.... :D GRACIAS

bueno mi problema es el siguiente:
estoy realizando un sistema de facturacion y en este momento estoy tratando de realizar el form ke realiza la factura...
lo ke tengo hasta el momento es un data (el cual conceta mi BD), un listbox y un flexgrid, estos ultimos estan conectados de tal forma ke cuando escogo un registro del listbox y le doy clic al flexgrid aparece dicho registro en el flexgrid con los datos ke yo kiero, eso si lo realiza bien lo ke yo kiero ke haga es ke al momento de escoger otro registro diferente del listbox c pase tambien al flexgrid pero en el renglon( fila ) ke sigue, lo ke hace hasta a hora es borrarme el registro actual y pone el ke acabo de escoger... alguien sabe como hacerlo!!!!!!
bueno aki les mando mi codigo para ke lo cheken y me informen de alguna solucion posible...
ahhhh c me olvidaba, lo ke utilizo es visual basic 6 y access 2000

este es el codigo de mi form:

Private Sub FlexGrid1_Click()
FlexGrid1.Clear
Dim y As Integer
FlexGrid1.Cols = 5
FlexGrid1.ColWidth(0) = 0
FlexGrid1.Col = 1
FlexGrid1.Row = 0
FlexGrid1.ColWidth(1) = 1200
FlexGrid1.Text = "Cantidad"
FlexGrid1.Col = 2
FlexGrid1.Row = 0
FlexGrid1.ColWidth(2) = 1500
FlexGrid1.Text = "Descripcion"
FlexGrid1.Col = 3
FlexGrid1.Row = 0
FlexGrid1.ColWidth(3) = 2000
FlexGrid1.Text = "Precio Unitario"
FlexGrid1.Col = 4
FlexGrid1.Row = 0
FlexGrid1.ColWidth(4) = 1500
FlexGrid1.Text = "Importe"
y = 1

FlexGrid1.Refresh
FlexGrid1.Visible = True

Dim SQL As String
SQL = "Select nombre, preciounitario From inventario where nombre='" & busqueda & "'"
Data1.RecordSource = SQL
Data1.Visible = False
Data1.Refresh

FlexGrid1.Refresh
FlexGrid1.Visible = True

End Sub

Private Sub Form_Load()
Dim recordf As Object
Dim base As Database

Set base = OpenDatabase("C:Documents and SettingsmercedesMis documentosYOBTImeche.mdb")
Set recordf = base.OpenRecordset("select * from inventario")

Set Data1.Recordset = recordf

Dim datos_productos(15000) As String
Dim total As Integer

total = Data1.Recordset.RecordCount

Dim t As Integer
List1.Clear
Data1.Recordset.MoveFirst

For t = 1 To total

datos_productos(t) = RTrim(Data1.Recordset.Fields("nombre"))
Data1.Recordset.MoveNext

Next t

For t = 1 To total
List1.AddItem datos_productos(t)
Next t

End Sub

Private Sub List1_Click()
busqueda = RTrim(List1.Text)
End Sub

este es el codigo de un modulo ke tengo para realizar la buskeda, bueno en realidad lo unico ke hace es declara una variable para utilizarla en todo :D

Public busqueda As String

BUENO ESTO ES TODO, hasta el momento :D jeje
espero tu respuesta
kedo de ti muy atentamente
mechita
[email protected]

PD: c me olvidava una pekeña cosita, eske al momento de darle click al flexgrid para ke me ponga el registro rekerido, no me respeta los encabezados ke yo le pongo, me pone los de la base de datos, alguien podria decirme como soluciono este problema
bueno muchisisisisisisisimas Gracias !!!!!