SoloCodigo

Agregar un fichero de tipo Aplicación global
Dentro del fichero de aplicación global
   Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Código que se ejecuta cuando se inicia una nueva sesión
        'Aquí se crea una tabla temporal para guardar los
        'Datos del carrito
        Dim dt As New DataTable
        'Ahora se creará columnas para la tabla indicando nombre de la columna
        'y tipo de dato
        Dim dc0 As New DataColumn("Item", System.Type.GetType("System.Byte"))
        Dim dc1 As New DataColumn("Codigo", System.Type.GetType("System.Int16"))
        Dim dc2 As New DataColumn("Cantidad", System.Type.GetType("System.Int16"))
        Dim dc3 As New DataColumn("Descripcion", _
                    System.Type.GetType("System.String"))
        Dim dc4 As New DataColumn("PrecioUnitario", _
                    System.Type.GetType("System.Decimal"))
        Dim dc5 As New DataColumn("ValorBruto", _
                    System.Type.GetType("System.Decimal"))
        Dim dc6 As New DataColumn("PorcentajeDescuento", _
                    System.Type.GetType("System.Decimal"))
       
        Dim dc7 As New DataColumn("MontoDescuento", _
                    System.Type.GetType("System.Decimal"))
        Dim dc8 As New DataColumn("ValorNeto", _
                    System.Type.GetType("System.Decimal"))
       
        'Ahora se añadirá las colñumnas a la coleccion de columnas
        'del datatable dt
        dt.Columns.Add(dc0)
        dt.Columns.Add(dc1)
        dt.Columns.Add(dc2)
        dt.Columns.Add(dc3)
        dt.Columns.Add(dc4)
        dt.Columns.Add(dc5)
        dt.Columns.Add(dc6)
        dt.Columns.Add(dc7)
        dt.Columns.Add(dc8)
        dc2.DefaultValue = 1 'Asi se especifica un valor por defecto para
        'esta columna
        'Ahora se est{a almacenando en una variable session la tabla creada
        'para acceder desde cualquier parte de la aplicación pero por cada usuario
        'o sesión
        dc6.DefaultValue = 10
        dc5.Expression = "Cantidad * PrecioUnitario"
        dc7.Expression = "ValorBruto * PorcentajeDescuento/100"
        dc8.Expression = "ValorBruto - MontoDescuento"
        'Asi se especifica la expresión de una fórmula que opera campos de la
        'tabla
        'dc1.Unique = True 'Asi se indica que en la segunda columna no puede
        'existir valores duplicados
        Session("carrito") = dt
             

    End Sub

Formulario productos.- permite  visualizar y seleccionar desde una lista de productos para luego ser acumulado en un carrito de compras.
Formulario Carrito.- permite acumular toda la información recepcionada desde la página producto para luego  finalizar la compra del carrito

Matias,

Espero que todavia tengas tiempo para el proyecto... Lamentablemente desde el viernes estube fuera y no tuve accesso a computadora...

en fin El primer ejemplo que te envie correspondo a la pagina donde optienes los valores antes de incluirlos en la tabla, creo que la pagina se llama productos.aspx.

El segundo ejemplo seria para la pagina "carrito.aspx". Para ese entonces ya tienes los valores en asignados en la variable de session y lo que tienes que hacer es extraerlos de esa variable y montarlos en el datagrid. Pero antes de pasarlos al dataGrid tienes que pasarlos de la variable de session a la Tabla y una vez en la tabla la misma se tiene que recorrer para pasar todos los valores al data grid.

Dime si todavia ocupas ayuda.

Saludos.

Carlos Cor.
Web Hosting, Design, Development & SEO at Crystaltech

lo que tienes que hacer es extraerlos de esa variable y montarlos en el datagrid. Pero antes de pasarlos al dataGrid tienes que pasarlos de la variable de session a la Tabla y una vez en la tabla la misma se tiene que recorrer para pasar todos los valores al data grid.

          Dim dt As New DataTable

        Dim dc0 As New DataColumn("Item", System.Type.GetType("System.Byte"))
        Dim dc1 As New DataColumn("Codigo", System.Type.GetType("System.Int16"))
        Dim dc2 As New DataColumn("Cantidad", System.Type.GetType("System.Int16"))
        Dim dc3 As New DataColumn("Descripcion", System.Type.GetType("System.String"))
        Dim dc4 As New DataColumn("PrecioUnitario", System.Type.GetType("System.Decimal"))
        Dim dc5 As New DataColumn("ValorBruto", System.Type.GetType("System.Decimal"))
        dt.Columns.Add(dc0)
        dt.Columns.Add(dc1)
        dt.Columns.Add(dc2)
        dt.Columns.Add(dc3)
        dt.Columns.Add(dc4)
        dt.Columns.Add(dc5)
        dc2.DefaultValue = 1

        dc0.Expression = "lblnombre"
        dc1.Expression = "lblcodigo"
        dc3.Expression = "lbldescripcion"
        dc4.Expression = "lblprecio"
        dc5.Expression = "lbltotal"

        dc1.Unique = True
        Session("carrito") = dt

   

Dim tabla As New DataTable

tabla.Columns.Add("Nombre de la Columna") -- esta linea puede repetirce la cantidad de veces que quieras de acuerdo a la cantidad de columnas que quieras meter dentro de la tabla. Este valor es solo como va a mostrar los valores en el nivel superior de la tabla eso es todo y tienen que estar en el mimo order en que van a ser introducidos los valores de las filas.

Dim Fila As DataRow

Fila("Nombre de la fila")= "el valor que vas a meter en ese campo" /este puede ser lo que este almacenado en texto o en la devolucion de un query... o lo que sea

tabla.rows.add(fila)