Question culture générale

**loverdev** · 18/06/2007, 15h03

Comment je peux stocker une ancienne valeur d'un champ ensuite utiliser cette valeur pour faire un calcul en sachant que cette valeur a été modifiée?

**SaumonAgile** · 18/06/2007, 15h15

Gnii ?
Ben dans une variable ou un attribut de classe, je ne vois pas trop ce que tu veux dire. La réponse me parait trop évidente pour que je pense avoir bien compris la question.

**loverdev** · 18/06/2007, 15h23

Je vous explique, j'ai un champ de texte "total réalisation" qui possède déjà le montant total des réalisation (montant de 4 champs de textes) et un champ "montant avancé". Avant de saisir quoique ce soit au niveau du champ "montant avancé" je veux d'abord stocker la valeur du champ "total réalisation" pour pouvoir l'utiliser plus tard. Si je saisi un montant au niveau du champ "montant avancé" alors la valeur du champ "total réalisation" change puisqu'elle devient égale a l'ancienne valeur + le montant saisi au niveau du champ "montant avancé". Mais quand j'efface le contenu du champ "montant avancé" je veux que le champ "total réalisation" reçoit l'ancienne valeur.

**Pol63** · 18/06/2007, 15h30

et bien dim oldvalue as decimal
avant le traitement tu fait oldvalue =
et à la fin machin = oldvalue

mais si tu veux continuer dans ta lancée d'utiliser les propriété des objets stocke -s-y dans objet.tag

**loverdev** · 18/06/2007, 15h37

Voici ce que j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
If Txtmontantavance.Text = "" Then
                Dim mc As [Decimal] = CDec(Txtmontantc.Text)
                Dim total As [Decimal] = CDec(Txttotalrea.Text)
                Dim ma As [Decimal] = CDec(Txtmontantavance.Text)
                Txtmontantpaye.Text = CDec(Txttotalrea.Text)
                Txtresteapayer.Text = CDec(Txtmontantc.Text) - CDec(Txttotalrea.Text)
            Else
                Dim mc As [Decimal] = CDec(Txtmontantc.Text)
                Dim total As [Decimal] = CDec(Txttotalrea.Text)
                Dim ma As [Decimal] = CDec(Txtmontantavance.Text)
                Dim var As [Decimal]
                var = total + ma
                Txtmontantpaye.Text = total + ma
                Txtresteapayer.Text = mc - (total + ma)
            End If

Mais je ne sais pas comment stocker l'ancienne valeur du champ "total réalisation".

**Pol63** · 18/06/2007, 16h21

dim oldvalue as decimal
oldvalue = cdec(montextbox.text)

...code...
montextbox.Text = "58"

montextbox.text = oldvalue.tostring

là y eut modification du textbox et à la fin on remet la valeur qu'il y avait avant le traitement