Visual Basic - Pasar los datos de una var o un text a un grid

HOLA A TODOS

QUISIERA QUE ME AYUDARAN CON LO SIGUIENTE:

RESULTA QUE NECESITO PASAR LOS RESULTADOS DE UNAS FORMULAS, QUE TENGO ALMACENADOS EN UNA VARIABLE Y UNOS TEXT A UN GRID. YA HE INTENTADO CON UN DATA GRID PERO NO LO HE LOGRADO, A VER SI ME ORIENTAN PARA ESCOGER EL GRID MÁS CONVENIENTE.

POR EJEMPLO TENGO LAS COLUMNAS MATERIA PRIMA , VOLUMEN , BRIX, ETC.

EN CADA FILA DEBO COLOCAR EL VOLUMEN Y EL BRIX, (RESULTADO DE LAS FORMULAS) ENTRE OTROS, DE LA MATERIA PRIMA ESCOGIDA DE UN COMBO BOX..

AGRADECIDA DE ANTEMANO

LARISA

GRACIAS

Es más 'bonito' (Microsoft Common Controls)... propiedad View = report.

No sé si la columna Materia prima ya la tienes introducida en el grid o no. Supongo que sí.

Por eso, como una primera aproximación podrías probar esto, en el evento click del combo de materia prima.

' Este For lo hago porque no sé si el orden de la mat. prima es el mismo en el combo y en el grid

Dim index As Integer
'Recorremos la primera col. del listview para compararlo con la mat. prima seleccionada del combo y así obtenemos su propiedad index en el listview.
For i = 1 To ListView1.ListItems.Count '.count es el num. de elementos
If ListView1.ListItems(i).Text = Combo1.Text Then index = i
Next

'Ahora simplemente se irían añadiendo los textos a su fila correspondiente, teniendo en cuenta el indice antes conseguido. la primera columna del listview es un Item y las siguientes son Subitems de esta, por eso ponemos estas dos sentencias seguidas, porque mientras haya columnas irá añadiendo elementos a la fila.

ListView1.ListItems(index).ListSubItems.Add , , Volumen.Text
ListView1.ListItems(index).ListSubItems.Add , , GradBrix.Text

Nota:Si por casualidad alguno de los text estuviese vacío, dejaría su columna vacía así que los siguientes estarían desplazados una columna hacía la izquierda.

Espero que te sirva

Antes de empezar añadir los subitems estaría bien eliminar los que puediese haber antes:

Dim index As Integer
For i = 1 To ListView1.ListItems.Count '.count es el num. de elementos
If ListView1.ListItems(i).Text = Combo1.Text Then index = i
Next
ListView1.ListItems(index).ListSubItems.Add , , Volumen.Text
ListView1.ListItems(index).ListSubItems.Add , , GradBrix.Text

Quedaría así:

Dim index As Integer
For i = 1 To ListView1.ListItems.Count '.count es el num. de elementos
If ListView1.ListItems(i).Text = Combo1.Text Then index = i
Next
ListView1.ListItems(index).ListSubItems.Clear
ListView1.ListItems(index).ListSubItems.Add , , Volumen.Text
ListView1.ListItems(index).ListSubItems.Add , , GradBrix.Text

Un saludo

La opcion que te sugiere Carlos está bien, pero que sepas que esta el control MSFLEXGRID, A esta rejilla se le puede añadir datos a partir de una variable o de cualquier otro control como un "Text". También admite enlace con control DATA.
Un ejemplo de añadir :

msflexgrid1.cols = 2 ' nº de columnas que quieras
minombre = text1.text
midireccion = tex2.text
msflexgrid1.additem minombre & chr(9) & mdireccion

Suerte