Discussion :

[MADA BLACK]

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

[Phil Rob]

Bonjour Mada,

Normal (je crois) que ça ne marche pas car tu as placé un test "grâce" auquel les TextBox ne sont remplies que lorsqu’il y a 5 lignes, donc s'il y en a moins ...

Dim i As New List(Of Integer)
For Each r As DataGridViewRow In DataGridView1.Rows
i.Add(r.Index)
If i.Count = 5 Then
' ... ... ...

J'espère que ceci t'indiquera une bonne piste ...

[MADA BLACK]

Bonjour Phil Rob
Tres gentil de votre part
J'ai pas fais attention a cet (if) .. je vais essayer des que je rentre chez moi
Cordialement
MADA

[MADA BLACK]

Phil Rob
Cher gentelman
Vraiment un cauchemar ..
Lorsque j'ai efface cette ligne : If i.Count = 5 Then aussi j'ai efface End if au dessous du code
J'ai essaye d'executer le code alors j'ai obtenu cet erreur ( L'index était hors limites. Il ne doit pas être négatif et doit être inférieur à la taille de la collection.) au niveau de cette ligne

Code :

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

  Dim r2 As DataGridViewRow = DGV_CANDIDATE.Rows(i(1))

Amicalement
MADA

[Phil Rob]

Re,

Je te propose d'essayer ceci (c'est plus court):

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
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
 
        Dim IndexLigne As Integer
        Dim IndexTextBox As Integer
 
        Dim TB(15) As TextBox
 
        For Each Obj As Object In Me.Controls
            If Obj.GetType.Name = "TextBox" Then
                IndexTextBox = Obj.Name.Substring(7)
                TB(IndexTextBox) = Obj
            End If
        Next
 
        IndexTextBox = 1
        For IndexLigne = 0 To DataGridView1.Rows.Count - 1
            If Not DataGridView1.Item(0, IndexLigne).Value Is Nothing Then TB(IndexTextBox).Text = DataGridView1.Item(0, IndexLigne).Value
            If Not DataGridView1.Item(0, IndexLigne).Value Is Nothing Then TB(IndexTextBox + 1).Text = DataGridView1.Item(1, IndexLigne).Value
            If Not DataGridView1.Item(0, IndexLigne).Value Is Nothing Then TB(IndexTextBox + 2).Text = DataGridView1.Item(2, IndexLigne).Value
            IndexTextBox += 3
        Next
End Sub

[MADA BLACK]

Merci beaucoup Phil Rob pour l'aide
Malheureusement j'ai obtenu cet erreur ..

Amicalement
MADA

[MADA BLACK]

Merci Beucoup maitre Phil Rob
C'etait ma faute .. votre code ca fonctionne tres tres bien
Merci pour l'aide et pour cet impeccable et court et efficace code
Parfaitement resolu
Amicalement
MADA