mechita
09 de Agosto del 2003

hhhhhhhhhhhoooooooollllllllllllllaaaaaaaaa ! ! ! ! ! ! ! ! ! !
gracias por leer este mensaje
kisiera saber si me pueden ayudar con este problemilla ke tengo.
bueno gracias de antemano y aki les va:

pero lo ke kiero saber es como le hago para ke cuando le cambie de
registro al listbox este c ponga en el segundo renglon del felxgrid y asi
sucesivamente sin llegar a mas de 10 registros en ese flex....

ahhhhh, otra cosita abusando de tu amabilidad :S
kisiera saber como puedo escribir en el flexgrid, porke necesito poner la
cantodad de producto ke el cliente adkiere y ke haga los calculos de total
de la compra, c puede hacer esto ke kiero?

les mando el codigo para ke lo cheken ! ! ! ! ! ! estoy manejando VB6, DAO y access 2000

bueno si mas por el momento y esperando tu respuesta, kedo de ti muy
atentamente

Mercedes Lerma

PD: :D otra cosita :D
al momento de pasar el registro ke kiero del list al flex, no me respeta los
encabezados ke yo le pongo, sabes como hacer para ke me los respete?
te envio de nuevo mi codigo para ke lo veas ok...

CODIGO:

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