Discussion :

[Bam513]

Bonjour à tous,

Je devrais remplir un datagridview manuellement, ce que je fais avec le code suivant :

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
38
39
40
41
42
43
44
45
46
 
Private Sub Query_AG_Result_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim app_by_owner As String = ""
        'Dim row As String() = {choix_query_AG, "test"}
        Dim row As String() = {choix_query_AG, app_by_owner}
        Dim cmdbuild_AG As OleDbCommandBuilder
        Dim table_application_group As DataTable
        Dim ligne As DataRow
 
        cmdbuild_AG = New OleDb.OleDbCommandBuilder(Adap_application_group)
        chaine_connexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + projet_choisi
        Connexion.ConnectionString = chaine_connexion
 
        Adap_application_group.Fill(DtSet_AG, "application_group")
        table_application_group = DtSet_AG.Tables("application_group")
 
        With Query_AG_Result_DataGridView
            .Name = "Query_AG_Result_DataGridView"
            .Location = New Point(8, 8)
            .Size = New Size(500, 250)
            .AutoSizeRowsMode = _
                DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
            .ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single
            .CellBorderStyle = DataGridViewCellBorderStyle.Single
            .GridColor = Color.Black
            .RowHeadersVisible = False
 
            .Columns(0).Name = "Owner"
            .Columns(1).Name = "Application"
 
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = False
            .Dock = DockStyle.Fill
        End With
 
        For Each ligne In table_application_group.Rows
            If choix_query_AG = ligne(5) Then
                app_by_owner = ligne(1).ToString
                MsgBox(app_by_owner)
                With Me.Query_AG_Result_DataGridView.Rows
                    .Add(row)
                End With
            End If
        Next
    End Sub

La première colonne se remplit, mais pas la deuxième. Si par contre, je remplace la variable destinée à remplir la deuxième colonne avec un texte entre quotes "", la deuxième colonne se remplit.

Quelqu'un aurait-il une idée ?

Merci d'avance,

Bam

[Bam513]

Et bien, plus simple qu'il n'y paraît.

Si cela peut aider qql'un, voici les deux petites lignes de code que j'ai ajouté (puisque le passage de constante ne fonctionnait pas à la déclaration)

row(0) = ma première variable
row(1) = ma deuxième variable

Bon j'ai une excuse hein, c'est mon premier projet de développement ...

A plus

[padodanle51]

merci pour l'astuce, par contre n'oublie pas de mettre résolu @+