Porque no funciona ??
sebastian
13 de Octubre del 2004
estoy utilizando este codigo para poder abrir una base mdb y colocar los datos en un msflexgrid si coincide el texto del campo del combo con el del campode la base.
Dim ar
ar = 1
Do While Not Data1.Recordset.EOF
comboestilo.AddItem Trim(Configuracionautomatico.Data1.Recordset.Fields("Estilo") & "")
comboestilo.ListIndex = 0
If Trim(Configuracionautomatico.Data1.Recordset.Fields("Estilo") & "") = comboestilo.Text Then
MSFlexGrid1lista.AddItem ""
MSFlexGrid1lista.TextMatrix(ar, 0) = Trim(Data1.Recordset.Fields("categoria") & "")
End If
If Data1.Recordset.RecordCount = ar Then GoTo bye
Data1.Recordset.MoveNext
ar = ar + 1
Loop
bye:
el problema es que el EOF me da verdadero y no funcion a lo anterior .. como hago para que funcione ???
GRacias !!
Dim ar
ar = 1
Do While Not Data1.Recordset.EOF
comboestilo.AddItem Trim(Configuracionautomatico.Data1.Recordset.Fields("Estilo") & "")
comboestilo.ListIndex = 0
If Trim(Configuracionautomatico.Data1.Recordset.Fields("Estilo") & "") = comboestilo.Text Then
MSFlexGrid1lista.AddItem ""
MSFlexGrid1lista.TextMatrix(ar, 0) = Trim(Data1.Recordset.Fields("categoria") & "")
End If
If Data1.Recordset.RecordCount = ar Then GoTo bye
Data1.Recordset.MoveNext
ar = ar + 1
Loop
bye:
el problema es que el EOF me da verdadero y no funcion a lo anterior .. como hago para que funcione ???
GRacias !!
elteclas
13 de Octubre del 2004
Cuantas bases de datos usas? esque no entiendo porque estas mirando el EOF de DATA1 y luego estas comparando el flexgrid con Configuracionautomatico.Data1. Es la misma bd? o quizas estes haciendo referencia a otra base de datos.