daniels99
19 de Octubre del 2005

Miren, tengo una tabla en .dbf y la quiero cargar a un MsFlexGrid , pero cuando la cargo aparece en desorden , la quiero cargar con una consulta SQL para que salga ordenada por un campo , pero no se como cargar esa sentencia al MsFlexGrid. Agradezco su ayuda de antemano.

Violeta
19 de Octubre del 2005

mira solo tienes que hacer la consulta con los campos que necesites y depues con el siguiente codigo los puedes cargar en el MsFlexgrid por ejemplo

cont = 1
Set rconsulta = New Recordset
SQL = "SELECT * from reactivos order by nombre"

Set rconsulta = conexion.Execute(SQL)

MSFlexGrid1.TextMatrix(0, 0) = "Indice"
MSFlexGrid1.TextMatrix(0, 1) = "Clave"
MSFlexGrid1.TextMatrix(0, 2) = "Número"
MSFlexGrid1.TextMatrix(0, 3) = "Nombre"
MSFlexGrid1.TextMatrix(0, 4) = "Marca"
MSFlexGrid1.TextMatrix(0, 5) = "Lote"
MSFlexGrid1.TextMatrix(0, 6) = "Fecha"
MSFlexGrid1.TextMatrix(0, 7) = "Presentación"

While rconsulta.EOF = False
MSFlexGrid1.Rows = cont + 1
MSFlexGrid1.TextMatrix(cont, 0) = cont
MSFlexGrid1.TextMatrix(cont, 1) = rconsulta!cve
MSFlexGrid1.TextMatrix(cont, 2) = rconsulta!numero
MSFlexGrid1.TextMatrix(cont, 3) = rconsulta!nombre
MSFlexGrid1.TextMatrix(cont, 4) = rconsulta!marca
MSFlexGrid1.TextMatrix(cont, 5) = rconsulta!lote
MSFlexGrid1.TextMatrix(cont, 6) = rconsulta!fecha
MSFlexGrid1.TextMatrix(cont, 7) = rconsulta!presentacion
cont = cont + 1
rconsulta.MoveNext
Wend


Espero te sirba