FlexGrip, For... Next, guardar variables

[gabyamenta]

Hola a Todos...
Tengo un FlexGrip con 5 datos, los cuales son

1.- Codigo del producto
2.- Descripcion del Producto
3.- Cantidad
4.- Precio Lista
5.- Precio Venta

El codigo del producto, la descripción y el precio Lista se cargan de la BD por el codigo, mientras que la cantidad y el precio de Venta se colocan manualmente en TextBox, luego se preciona un boton para colocar cada uno de los datos en el FlexGrip. Ahora bien al momento de almacenar todos los datos en una tabla de la base de datos realizo un For... Next para cada una de las lineas del FlexGrip, esto me funciona perfectamente.

La duda es la siguiente, cada vez que se carga una linea del FlexGrip requiero guardar el precio lista y precio Venta en variables a fin de utilizar nuevamente los datos.

Ej:
Tengo (02) dos productos en el FlexGrip
Codigo - Descripcion - Cant. - Precio Lista - Precio Venta
010501 - Clavo - 3 - 100 - 90
010304 - Tornillos - 5 - 150 - 100

El codigo para cada uno de los datos es el siguiente:

lngFilaAux = 0
For lngFila = 1 To Me.spdDetalle.DataRowCnt
Me.spdDetalle.Row = lngFila
Me.spdDetalle.Col = ItemCodigo
Codigo= Me.spdDetalle.Text
Me.spdDetalle.Col = ItemDescripcion
Descripcion = Me.spdDetalle.Text
Me.spdDetalle.Col = ItemCant
Cant = Me.spdDetalle.Text
Me.spdDetalle.Col = ItemPrecioL
PrecioL = Me.spdDetalle.Text
Me.spdDetalle.Col = PrecioV
PrecioV = Me.spdDetalle.Text

Next

Ahora bien como hago para guardar el precio Lista y el Precio Venta de los dos productos en variables, como por ejemplo:

PrecioLista1 = 100
PrecioLista2 = 150

PrecioVenta1 = 90
Precio Venta = 100

Esto para presentar en otro formulario

Espero haberme explicado bien, de todos modos cualquier cosa puedo aclarar alguna duda.

Gracias de antemano...

[Kruzado]

a ver.... por ejemplo, si kieres escoger con un doble click el precio de venta y de lista y pasarlo a otro formulario puedes hacerlo asi:

en el evento doble click del flexgrid :

otroform.text1.text=spdetalle.textmatrix(psdetalle .row,itempreciol)
otroform.text1.text=spdetalle.textmatrix(psdetalle .row,itempreciov)
otroform.show

si no es eso lo ke kieres, cuando llenas el flexgrid puedes llenar tambiuen un arreglo global y despues usarlo donde lo necesites, pero para eso debes saber la posicion del valor ke deseas buscar, para eso puedes usar lo siguiente :

en un modulo debes declarar tu arreglo como global , con las posiciones a necesitar

global tuarreglo[1 to 100, 1 to 100]

y en el codigo de llenado del flexgrid :

lngFilaAux = 0
For lngFila = 1 To Me.spdDetalle.DataRowCnt
Me.spdDetalle.Row = lngFila
Me.spdDetalle.Col = ItemCodigo
Codigo= Me.spdDetalle.Text
Me.spdDetalle.Col = ItemDescripcion
Descripcion = Me.spdDetalle.Text
Me.spdDetalle.Col = ItemCant
Cant = Me.spdDetalle.Text
Me.spdDetalle.Col = ItemPrecioL
PrecioL = Me.spdDetalle.Text
Me.spdDetalle.Col = PrecioV
PrecioV = Me.spdDetalle.Text

TUARREGLO[INGFILA,0]=PRECIOL
TU ARREGLO[INGFILA,1]=PRECIOV

ATENCION!!!! solo te estoy guiando de lo ke podrias hacer, no te doy la solucion... eso corre por tu cuenta, investigando un poco de lo ke te explico por aca.... saludos

[gabyamenta]

Hola Kruzado, lo que necesito es lo que me dijiste del arreglo pero me puedes explicar un poco mas por favor... Debo meter ese código en un Public Function o en una función simple? Debo colocar todo el código en el módulo o una parte en el módulo y la otra en el formulario?

Gracias por tu ayuda...

[gabyamenta]

Gracias, ya lo hice... el codigo que use fue el siguiente:

Dim codigo(20) As String
Dim PRECIO(20) As String
Dim PrecioVta(20) As String

For X = 1 To Me.spdDetalle.DataRowCnt
Me.spdDetalle.Col = ItemCodigo
codigo(X) = Me.spdDetalle.Text
Me.spdDetalle.Col = ItemPrecio
PRECIO(X) = Me.spdDetalle.Text
Me.spdDetalle.Col = ItemPrecioVta
PrecioVta(X) = Me.spdDetalle.Text
Next

Pero ahora tengo otro problema necesito llevarme el resultado del arreglo a otro formulario y no se como hacer. Por favor quien me pueda ayudar se lo agradezco...

Gracias...

[Kruzado]

crea un modulo y declaralo como global

[gabyamenta]

Listo gracias ya esta listo....