Comment utiliser les données d'un formulaire dans un autre formulaire?
Salut la communauté.Dans mon objectif de création d'une application windows, je souhaite utiliser quelques données de mon formulaire Membre vers mon formulaire cotisation.Les champs concernés sont:date_adhe,nom,prenom et photo(la photo du membre). Il faut dire aussi que j'ai créer un bouton sur mon formulaire"Membre" afin d'afficher le formulaire "cotisation". Pour cela pas de problème.Mon objectif c'est qu'après que mon formulaire "Membre"soit rempli en cliquant sur mon bouton,mon formulaire "cotisation"s'affiche en affichant les données entrées dans mon formulaire "membre"(les champs cités juste en haut). J'ai utilisé ce code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
| Private Sub Cotisation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.MaskedTextBox1.Text = Membre.Date_adheMaskedTextBox.Text
Me.NomTextBox.Text = Membre.NomTextBox.Text
Me.PrenomsTextBox.Text = Membre.PrenomTextBox.Text
Me.PictureBox1.Image = Membre.PictureBox1.Image
Timer1.Start()
'ouverture de la connection(à partir du répertoire de l'application)
conn = "Data Source = |DataDirectory|\mabase.sdf"
cnx = New SqlCeConnection
cnx.ConnectionString = conn
cnx.Open()
sql = "select* from Cotisation"
cmd = New SqlCeCommand(sql)
dta = New SqlCeDataAdapter(cmd)
cmd.Connection() = cnx
'chargement du DataSet à partir du DataAdapter
dta.Fill(dts, "Cotisation")
'chargement de la DataTable à partir du DataSet
dtt = dts.Tables("Cotisation")
'si la table est vide alors
If rownum > dtt.Rows.Count - 1 Then
'désactivation des boutons pour éviter une erreur
'si la table est vide
btnenreg.Enabled = True
btnmodi.Enabled = False
btnsup.Enabled = False
Else
'affichage des données dans les textbox
'Me.Mont_cotiMaskedTextBox.Text = dtt.Rows(rownum).Item("mont_coti")
' Me.MaskedTextBox1.Text = dtt.Rows(rownum).Item("mont_coti")
If IsDBNull(dtt.Rows(rownum).Item("mont_coti")) Then
Me.MaskedTextBox1.Text = ""
Else
Me.MaskedTextBox1.Text = dtt.Rows(rownum).Item("mont_coti")
End If
Me.MaskedTextBox1.Text = dtt.Rows(rownum).Item("date_adhe")
Me.NomTextBox.Text = dtt.Rows(rownum).Item("nom")
Me.PrenomsTextBox.Text = dtt.Rows(rownum).Item("prenoms")
Me.Date_janvMaskedTextBox.Text = dtt.Rows(rownum).Item("date_janv")
Me.Date_fevMaskedTextBox.Text = dtt.Rows(rownum).Item("date_fev")
Me.Date_marsMaskedTextBox.Text = dtt.Rows(rownum).Item("date_mars")
Me.Date_avrMaskedTextBox.Text = dtt.Rows(rownum).Item("date_avr")
Me.Date_maiMaskedTextBox.Text = dtt.Rows(rownum).Item("date_mai")
Me.Date_juinMaskedTextBox.Text = dtt.Rows(rownum).Item("date_juin")
Me.Date_juillMaskedTextBox.Text = dtt.Rows(rownum).Item("date_juill")
Me.Date_aoutMaskedTextBox.Text = dtt.Rows(rownum).Item("date_aout")
Me.Date_septMaskedTextBox.Text = dtt.Rows(rownum).Item("date_sept")
Me.Date_octMaskedTextBox.Text = dtt.Rows(rownum).Item("date_oct")
Me.Date_novMaskedTextBox.Text = dtt.Rows(rownum).Item("date_nov")
Me.Date_decMaskedTextBox.Text = dtt.Rows(rownum).Item("date_dec")
Me.AvanceMaskedTextBox.Text = dtt.Rows(rownum).Item("avance")
Me.ArrieresMaskedTextBox.Text = dtt.Rows(rownum).Item("arrieres")
Me.Somm_dueMaskedTextBox.Text = dtt.Rows(rownum).Item("somm_due")
Me.TotalMaskedTextBox.Text = dtt.Rows(rownum).Item("total")
Me.NoteTextBox.Text = dtt.Rows(rownum).Item("note")
'gestion des photos
Dim c As Integer = dts.Tables("Cotisation").Rows.Count
If c > 0 Then
Dim bytBLOBData() As Byte = _
dts.Tables("Cotisation").Rows(0)("photo")
Dim stmBLOBData As New MemoryStream(bytBLOBData)
PictureBox1.Image = Image.FromStream(stmBLOBData)
End If
End If
End Sub |
En fait j'ai aussi des boutons qui me permettent de naviguer entre mes enregistrements. Donc ce que je veux c'est qu'en fonction de mon enregistrement affiché sur mon formulaire "Membre",en cliquant sur mon bouton,le nom,le prenom,la date_adhe et la photo de ce membre s'affiche automatiquement dans mon formulaire"Cotisation"
Mais le problème c'est que lorsqu'il y a plusieurs enregistrements dans ma table c'est uniquement le premier enregistrement qui s'affiche dans "Cotisation". Voici les codes que j'utilise au cas ou cela devrait être utile
Code:
1
2
3
4
5
| Private Sub btnfichcoti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfichcoti.Click
'pour afficher le formulaire cotisation
'Me.Hide()
Cotisation.Show()
End Sub |
Merci d'avance et j'espère que j'ai été clair dans la formulation de mon problème.
