StreamReader petit souci

Signaler
Messages postés
5
Date d'inscription
jeudi 31 mars 2011
Statut
Membre
Dernière intervention
5 avril 2011
-
Messages postés
5
Date d'inscription
jeudi 31 mars 2011
Statut
Membre
Dernière intervention
5 avril 2011
-
Bonjour,

J'essaye de faire un petit programme de gestion de stock .

Dans un premier temps , à l'aide d'une combobox contenant les mois de l'année je séléctionne le mois de janvier , puis je rentre mes données

> stock début de mois ( siqtp et sipup )qui sont à 0 pour le mois de janvier

> les entrée du mois ( eqtp pour les quantité et epup pour le prix)

> le total calculer par un le bouton "Calcul"(tqtp et tpup)

>les sorties du stock ( sqtp et spup )

>les stocks fin de mois (sfqtp et sfpup) Calculer par le Bouton "Calcul"

Quand je clique sur "Calcul" les données qtp et pup sont enregistrée dans un .txt :

If ComboBox1.Text = "" Then
MsgBox("Vous n'avez pas sélectionner de mois d'exercice", vbOKOnly, "Attention")

ElseIf ComboBox1.Text = "Janvier" Then

' Crée le fichier ou s'il existe, il est écrasé
Dim SW As New IO.StreamWriter("H:\Bureauxp\Prog\Prog\Prog\donnees\stockJanvier.txt")
' Ecris les données dans le fichier textes correspondant au mois.
SW.WriteLine(Siqtp.Text)
SW.WriteLine(Sipup.Text)
SW.WriteLine(Eqtp.Text)
SW.WriteLine(Epup.Text)
SW.WriteLine(Tqtp.Text)
SW.WriteLine(Tpup.Text)
SW.WriteLine(Sqtp.Text)
SW.WriteLine(Spup.Text)
SW.WriteLine(Sfqtp.Text)
SW.WriteLine(Sfpup.Text)
' On ferme

SW.Close()



ElseIf ComboBox1.Text = "Février" Then


Dim SW1 As New IO.StreamWriter("H:\Bureauxp\Prog\Prog\Prog\donnees\stockFévrier.txt")

SW1.WriteLine(Siqtp.Text)
SW1.WriteLine(Sipup.Text)
SW1.WriteLine(Eqtp.Text)
SW1.WriteLine(Epup.Text)
SW1.WriteLine(Tqtp.Text)
SW1.WriteLine(Tpup.Text)
SW1.WriteLine(Sqtp.Text)
SW1.WriteLine(Spup.Text)
SW1.WriteLine(Sfqtp.Text)
SW1.WriteLine(Sfpup.Text)
' On ferme
SW1.Close()


ElseIf ComboBox1.Text = "Mars" Then

....etc

Je peux ensuite remettre mes données à 0 en cliquant sur un bouton et les chargers avec un autre en fonction du mois :


Private Sub Charger_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Charger.Click

If ComboBox1.Text = "" Then
MsgBox("Vous n'avez pas sélectionner de mois d'exercice", vbOKOnly, "Attention")

ElseIf ComboBox1.Text = ("Janvier") Then

'ouvrir le txt correspondant au mois et le lire '

Dim SR As New IO.StreamReader("H:\Bureauxp\Prog\Prog\Prog\donnees\stockJanvier.txt")


Siqtp.Text = SR.ReadLine
Sipup.Text = SR.ReadLine
Eqtp.Text = SR.ReadLine
Epup.Text = SR.ReadLine
Tqtp.Text = SR.ReadLine
Tpup.Text = SR.ReadLine
Sqtp.Text = SR.ReadLine
Spup.Text = SR.ReadLine
Sfqtp.Text = SR.ReadLine
Sfpup.Text = SR.ReadLine


' On ferme
SR.Close()


ElseIf ComboBox1.Text = ("Février") Then

etc ...

maintenant ce que je n'arrive pas à faire c'est charger mes stocks du début de mois par exemple stock début de mois février en récupérant les stocks fin de mois de janvier , lorsque je clique sur un bouton charger stock début (Button6) ( ou encore mieux en sélectionnant février dans ma ComboBox )
j'ai essayé ça :

rivate Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

If ComboBox1.Text = "" Then
MsgBox("Vous n'avez pas sélectionner de mois d'exercice", vbOKOnly, "Attention")

ElseIf ComboBox1.Text = ("Janvier") Then

'ouvrir le txt correspondant au mois et le lire '

Siqtp.Text = 0
Sipup.Text = 0


ElseIf ComboBox1.Text = ("Février") Then

Dim SR As New IO.StreamReader("H:\Bureauxp\Prog\Prog\Prog\donnees\stockJanvier.txt")

Sfqtp.Text = SR.ReadLine
Sfpup.Text = SR.ReadLine

SR.Close()

ElseIf ComboBox1.Text = ("Mars") Then

mais ça ne fonctionne pas.

Pouvez vous m'aider ?? Merci

1 réponse

Messages postés
5
Date d'inscription
jeudi 31 mars 2011
Statut
Membre
Dernière intervention
5 avril 2011

Pas d'idée ?