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