MSFlexGrid con Data
hola, nesecito saber si alguien me puede sacar del agua
tengo una base de datos abierta con el MSFlexGridcon por medio de un data , ko.
Nesecito que al cambia de fila en el MSFlexGrid cambie en el data.
es decir que el recordest del data coincida con el del MSFlexGrid, tal cual como pasa con el dbgrid, solo que en este caso no encuetro coneccion alguna entre data y MSFlexGrid.
gracias y un abrazo
tengo una base de datos abierta con el MSFlexGridcon por medio de un data , ko.
Nesecito que al cambia de fila en el MSFlexGrid cambie en el data.
es decir que el recordest del data coincida con el del MSFlexGrid, tal cual como pasa con el dbgrid, solo que en este caso no encuetro coneccion alguna entre data y MSFlexGrid.
gracias y un abrazo
Aki te envio este codigo el cual uso para eso que tu necesitas, tendras que hacerle unos cambios.
***************************************************************************
Dim CRITERIO As String
CRITERIO = "CODIGO= " & .MSFlexGrid1.Text & ""
With Data1.Recordset
.FindFirst CRITERIO
Txt_codigo = .Fields("CODIGO")
Txt_productos = .Fields("PRODUCTOS")
Txt_cantidad = .Fields("CANTIDAD")
Txt_Precio = .Fields("PRECIO")
Txt_totalcompras = .Fields("TotalenCompras")
Txt_fecha = .Fields("FechA")
End With
***************************************************************************
ESPERO QUE TE SIRVA.
CUALQUIER PREGUNTA ENVIAME MAIL
***************************************************************************
Dim CRITERIO As String
CRITERIO = "CODIGO= " & .MSFlexGrid1.Text & ""
With Data1.Recordset
.FindFirst CRITERIO
Txt_codigo = .Fields("CODIGO")
Txt_productos = .Fields("PRODUCTOS")
Txt_cantidad = .Fields("CANTIDAD")
Txt_Precio = .Fields("PRECIO")
Txt_totalcompras = .Fields("TotalenCompras")
Txt_fecha = .Fields("FechA")
End With
***************************************************************************
ESPERO QUE TE SIRVA.
CUALQUIER PREGUNTA ENVIAME MAIL