• Domingo 22 de Diciembre de 2024, 18:58
« anterior próximo »
Páginas: [1]

Autor Tema:  Msflexgrid  (Leído 1182 veces)

Liquid_Snake

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Msflexgrid
« en: Sábado 24 de Enero de 2004, 07:29 »
0
Necesito realizar 2 cosas con MsFlexGrid, hace poco empecé a utilizar este control y buen, surgieron dudas:
1. Cómo veo lo que tengo elegido, o sea, con qué puedo hacer el retrieve de mi selección?
2. Cómo puedo guardar la info que tengo en el grid y luego cargarla cuando quiera?.
Sólo eso, gracias por adelantado.

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Msflexgrid
« Respuesta #1 en: Lunes 26 de Enero de 2004, 15:21 »
0
Hola Liquid_Snake.

1 - Prueba algo de este estilo:
Código: Text
  1.  
  2. Private Sub MSFlexGrid1_SelChange()
  3. Dim intR As Integer, intC As Integer
  4. Dim intStepR As Integer, intStepC As Integer
  5. Dim str1 as String
  6. If MSFlexGrid1.Row > MSFlexGrid1.RowSel Then
  7.    intStepR = -1
  8. Else
  9.    intStepR = 1
  10. End If
  11. If MSFlexGrid1.Col > MSFlexGrid1.ColSel Then
  12.    intStepC = -1
  13. Else
  14.    intStepC = 1
  15. End If
  16. For intR = MSFlexGrid1.Row To MSFlexGrid1.RowSel Step intStepR
  17.    For intC = MSFlexGrid1.Col To MSFlexGrid1.ColSel Step intStepC
  18.       str1 = str1 & MSFlexGrid1.TextMatrix(intR, intC) & "&#59; "
  19.    Next intC
  20. Next intR
  21. MsgBox Left(str1, len(str1) - 3)
  22. End Sub
  23.  
  24.  
El código recorre la selección mostrando en un cuadro de diálogo el valor de las celdas seleccionadas.

2 - Usa la misma filosofia: utiliza la propiedad TextMatrix para obtener/asignar valores por fila y columna. Para almacenar los datos, valora tu mismo que es lo que te coviene (archivo de texto, tabla, etc...).

Suerte.

Liquid_Snake

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Msflexgrid
« Respuesta #2 en: Lunes 26 de Enero de 2004, 16:16 »
0
Mil gracias :D
Páginas: [1]
« anterior próximo »