Ordenar MSFlexGrid

[fedefrankk]

Hola a todos.. tengo dos dudas, yo a traves de un formulario lleno un MSFlexGrid, necesito si es posible, que cuando yo seleccione del MSFlexGrid, me aparezcan los datost en sus respectivos text... y otra asunto es como lo ordeno?.. de mayor a menor, estuve viendo y dicen que esta en la pagina 3 del FAQ's de VB6 del foro, pero no lo he econtrado... les dejo el codigo...
Saludos y Gracias..


codigo:

Código PHP:

  de = "Select count(*) as ultimo from productos"
tablas_apertura.Open de, conectar_acces
ultimo = tablas_apertura!ultimo + 1
tablas_apertura.Close

    MSFlexGrid1.FixedCols = 0
    MSFlexGrid1.Cols = 11
    MSFlexGrid1.FixedRows = 0
    MSFlexGrid1.Rows = ultimo
    MSFlexGrid1.ColWidth(0) = 900
    MSFlexGrid1.ColWidth(1) = 1500
    MSFlexGrid1.ColWidth(2) = 1500
    MSFlexGrid1.ColWidth(3) = 1500
    MSFlexGrid1.ColWidth(4) = 900
    MSFlexGrid1.Font = 8
    MSFlexGrid1.ColWidth(5) = 1500
    MSFlexGrid1.ColWidth(6) = 900
    MSFlexGrid1.ColWidth(7) = 1500
    
    MSFlexGrid1.TextMatrix(0, 0) = "CODIGO"
    MSFlexGrid1.TextMatrix(0, 1) = "DESCRIPCION"
    On Error Resume Next
    MSFlexGrid1.TextMatrix(0, 2) = "PROVEEDOR"
    MSFlexGrid1.TextMatrix(0, 3) = "CATEGORIA"
    MSFlexGrid1.TextMatrix(0, 4) = "COSTO"
    MSFlexGrid1.TextMatrix(0, 5) = "PRECIO DE VENTA"
    MSFlexGrid1.TextMatrix(0, 6) = "STOCK"
    MSFlexGrid1.TextMatrix(0, 7) = "STOCK MINIMO"
                
ed = "Select * from productos where codigo_producto"
tablas_apertura.Open ed, conectar_acces
i = 1
Do While Not tablas_apertura.EOF
    MSFlexGrid.Sort = flexSortStringNoCaseAscending
    MSFlexGrid1.TextMatrix(i, 0) = tablas_apertura!codigo_producto
    MSFlexGrid1.TextMatrix(i, 1) = tablas_apertura!descripcion_producto
    On Error Resume Next
    MSFlexGrid1.TextMatrix(i, 2) = tablas_apertura!proveedor_producto
    MSFlexGrid1.TextMatrix(i, 3) = tablas_apertura!familia_producto
    MSFlexGrid1.TextMatrix(i, 4) = tablas_apertura!costo_producto
    MSFlexGrid1.TextMatrix(i, 5) = tablas_apertura!preventa_producto
    MSFlexGrid1.TextMatrix(i, 6) = tablas_apertura!cantidad_producto
    MSFlexGrid1.TextMatrix(i, 7) = tablas_apertura!cantidadminimo_producto
    
    i = i + 1
    tablas_apertura.MoveNext
    Loop
    tablas_apertura.Close  
   

[Avellaneda]

Iniciado por fedefrankk

Hola a todos.. tengo dos dudas, yo a traves de un formulario lleno un MSFlexGrid, necesito si es posible, que cuando yo seleccione del MSFlexGrid, me aparezcan los datost en sus respectivos text... y otra asunto es como lo ordeno?.. de mayor a menor, estuve viendo y dicen que esta en la pagina 3 del FAQ's de VB6 del foro, pero no lo he econtrado... les dejo el codigo...
Saludos y Gracias..

Hola,
Para que al seleccionar aparezcan los datos en los TextBox (en este caso los TextBox son un array de controles, si no fuera así, lo mismo pero indicando cada uno de los TextBox)

Código:

Private Sub MSFlexGrid1_Click()
Dim i As Integer
For i = 0 To Text1.UBound
    Text1(i).Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, i)
Next i
End Sub

Para ordenar por una columna en orden descendiente, lo puedes hacer en la misma consulta

ed = "SELECT * FROM productos ORDER BY codigo_producto DESC"

[fedefrankk]

----Muchas Gracias por la contestacion como siempre me super sirvio..!!!!!!!!!!!!!!!!!!!.... que buena onda
saludos