Bonjour Forums
Bonjour tout le monde
S'il vous plait gentelman .. si vous pouvez m'aider a resoudre ce probleme
DataGridView1 sera remplit par 1 ligne ou 2 lignes ou 3 lignes .. au maximum 5 lignes.. et j'ai 3 colonnes
Je veux lorsque je click sur Button1 alors les TextBox de 1 jusqu'a 15 seront remplis par les donnees affichees sur DataGridView1
Les TextBox de 1 a 3 seront remplis par la premiere ligne
Les TextBox de 4 a 6 seront remplis par la deuxieme ligne
Les TextBox de 7 a 9 seront remplis par la troisieme ligne
Les TextBox de 10 a 12 seront remplis par la quatrieme ligne
Les TextBox de 13 a 15 seront remplis par la cinquieme ligne
Par exemple .. si j'ai sur DataGridView1 uniquement 3 lignes alors dans ce cas les TextBox de 10 a 15 seront biensur vides ..
j'ai essaye avec ce code que je l'ai trouve simplement au NET mais la malheur si j'ai sur DataGridView1 seulement 3 lignes .. ca ne fonctionne pas .. il fonctionne tres bien si j'ai sur DataGridView 4 ou 5 lignes mais 1 ou 2 ou 3 lignes ca ne fonctionne pas et les TextBox restent vides ..
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
 
    Dim i As New List(Of Integer)
    For Each r As DataGridViewRow In DataGridView1.Rows
        i.Add(r.Index)
        If i.Count = 5 Then
 
            Dim r1 As DataGridViewRow = DataGridView1.Rows(i(0))
            TextBox1.Text = r1.Cells(0).Value
            TextBox2.Text = r1.Cells(1).Value
            TextBox3.Text = r1.Cells(2).Value
 
            Dim r2 As DataGridViewRow = DataGridView1.Rows(i(1))
            TextBox4.Text = r2.Cells(0).Value
            TextBox5.Text = r2.Cells(1).Value
            TextBox6.Text = r2.Cells(2).Value
 
            Dim r3 As DataGridViewRow = DataGridView1.Rows(i(2))
            TextBox7.Text = r3.Cells(0).Value
            TextBox8.Text = r3.Cells(1).Value
            TextBox9.Text = r3.Cells(2).Value
 
            Dim r4 As DataGridViewRow = DataGridView1.Rows(i(3))
            TextBox10.Text = r4.Cells(0).Value
            TextBox11.Text = r4.Cells(1).Value
            TextBox12.Text = r4.Cells(2).Value
 
            Dim r5 As DataGridViewRow = DataGridView1.Rows(i(4))
            TextBox13.Text = r5.Cells(0).Value
            TextBox14.Text = r5.Cells(1).Value
            TextBox15.Text = r5.Cells(2).Value
 
            Exit For
        End If
    Next
End Sub
Je ne sais pourquoi ??
Merci beaucoup d'avance pour l'aide
Amicalement
MADA