Boubi01
Messages postés5Date d'inscriptionjeudi 31 mars 2011StatutMembreDernière intervention 5 avril 2011
-
4 avril 2011 à 16:17
Boubi01
Messages postés5Date d'inscriptionjeudi 31 mars 2011StatutMembreDernière intervention 5 avril 2011
-
5 avril 2011 à 12:29
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")
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")