none
Balancear RRS feed

  • Pregunta

  • Tengo el siguiente codigo con el que intento llenar la columna Balance de la tabla que tiene su esctructura;

    Cuenta    Entrada    Salida    Balance

      Dim paso = From a In na.PasoKardex
                       Select a
    
            For Each bala In paso
                If bala.salida > 0 Then
                    bala.Balance = bala.Balance - bala.salida
                Else
                    bala.Balance = bala.Balance + bala.entrada
                End If
    
            Next
            na.SubmitChanges()

    Pero me deja vacia la columna Balance. Y la tabla tiene registros con valores, donde nunca hay en los dos campos a la vez (Entrada Salida).

    Que estoy haciendo mal?

    miércoles, 19 de octubre de 2016 20:19

Todas las respuestas

  • Bueno, probando yo mismo lo logre. El codigo resulto asi, despues de colocar una variable que almacenara el valor por linea del balance.

    Dim paso = From a In na.PasoKardex
                       Select a
            Dim tot As Integer
    
            For Each bala In paso
                If bala.salida > 0 Then
                    bala.Balance = tot - bala.salida
                    tot = bala.Balance
                Else
                    bala.Balance = tot + bala.entrada
                    tot = bala.Balance
                End If
    
            Next
            na.SubmitChanges()
    Gracias a todos.

    jueves, 20 de octubre de 2016 20:39