¡Muchas gracias por tu respuesta, erbuson! Antes que nada, te comento que para ver las imágenes debes copiar y pegar los enlaces en la barra de tu navegador.
En cuanto al código, ha funcionado correctamente. Pero lo que no puedo lograr es lo que muestro en la segunda imagen. Es decir, agregar múltiples elementos al MSFlexGrid, uno por uno.
Puedo agregar elementos desde un TextBox utilizando el siguiente código que me proporcionaste, con algunas modificaciones.
Código:
MSFlexGrid1.Cols = 6
MSFlexGrid1.Rows = 10
i = 0
i = i + 1
MSFlexGrid1.TextMatrix(i, 0) = i
MSFlexGrid1.TextMatrix(i, 1) = Text2
MSFlexGrid1.TextMatrix(i, 2) = Text6
MSFlexGrid1.TextMatrix(i, 3) = Text4
MSFlexGrid1.TextMatrix(i, 4) = Text3
MSFlexGrid1.TextMatrix(i, 5) = Combo1
Pero luego, si modifico los valores de los TextBox y los agrego al MSFlexGrid se reemplaza lo que ya había agregado con anterioridad al MSFlexGrid. Cuando en realidad,
la idea es colocarlos en una nueva fila, debajo de la fila anterior (por eso he creado la variable i). Para esto, estoy casi seguro que hay que utilizar un
Do While:
Código:
MSFlexGrid1.Cols = 6
MSFlexGrid1.Rows = 10
i = 0
Do While i < 10
i = i + 1
MSFlexGrid1.TextMatrix(i, 0) = i
MSFlexGrid1.TextMatrix(i, 1) = Text2
MSFlexGrid1.TextMatrix(i, 2) = Text6
MSFlexGrid1.TextMatrix(i, 3) = Text4
MSFlexGrid1.TextMatrix(i, 4) = Text3
MSFlexGrid1.TextMatrix(i, 5) = Combo1
Loop
Aún así, cuando pongo en funcionamiento el código anterior me sale un error que dice que
el subíndice está fuera del intervalo y me marca en amarillo lo siguiente:
Código:
MSFlexGrid1.Cols = 6
MSFlexGrid1.Rows = 10
i = 0
Do While i < 10
i = i + 1
MSFlexGrid1.TextMatrix(i, 0) = i
MSFlexGrid1.TextMatrix(i, 1) = Text2
MSFlexGrid1.TextMatrix(i, 2) = Text6
MSFlexGrid1.TextMatrix(i, 3) = Text4
MSFlexGrid1.TextMatrix(i, 4) = Text3
MSFlexGrid1.TextMatrix(i, 5) = Combo1
Loop
De nuevo, muchas gracias por tu respuesta erbuson. Ya te ganaste tu primer punto de karma
Espero que alguien me pueda ayudar con este pequeño inconveniente
Un saludo y disculpen las molestias
