Discussion :

[Invité]

Bonjour,
J'ai crée un datagridview que j'ai réussi à remplir seulement j'aimerais rajouter un bouton déroulante dans une nouvelle colonne et j'arrive pas à trouver d'informations sur internet.
Pour que ce soit plus claire, voici un exemple


L'objectif est d'aboir une ligne avec un bouton et quand on appuie on obtient d'autres lignes
Merci d'avance pour vos réponses

[Phil Rob]

Salut,

Voici tout ce que j'ai sur la question :

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
  Private Sub FBase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim ColPrecio As New DataGridViewComboBoxColumn()
        ColPrecio.HeaderText = "Precio"
        ColPrecio.Name = "Precio"
 
        ColPrecio.Items.Add("1")
        ColPrecio.Items.Add("2")
        ColPrecio.Items.Add("3")
 
        MiDGV.Columns.Add("Cantidad", "Cantidad")
        MiDGV.Columns.Add("Producto", "Producto")
        MiDGV.Columns.Add(ColPrecio)
        MiDGV.Columns.Add("Total", "Total")
 
        MiDGV.Rows.Add("2", "Prod.1")
        MiDGV.Rows.Add("5", "Prod.2")
        MiDGV.Rows.Add("10", "Prod.3")
 
    End Sub
 
    Private Sub MiDGV_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles MiDGV.CellValueChanged
        If MiDGV.Rows.Count < 1 Then
            Exit Sub
        End If
 
        MiDGV.Item(MiDGV.Columns("Total").Index, e.RowIndex).Value =
            MiDGV.Item(MiDGV.Columns("Cantidad").Index, e.RowIndex).Value *
            MiDGV.Item(MiDGV.Columns("Precio").Index, e.RowIndex).Value
 
    End Sub

J'espère que ça t'aidera ...

[Invité]

Merci pour ta reponse mais c'est pas ce que je recherche. Ce que j'aimerais c'est ce quand j'appuie je puisse afficher des textbox



Je sais que c'est possible sur VBA

[Invité]

Pour ce que ca interesse, au final j'ai cree un bouton qui ouvre un form en function de la ligne

[Phil Rob]

Et quoi, ton bouton, il est intégré au DGV ? Je veux bien voir ...

[Invité]

desole je l'ai pas avec moi mais pour l'instant j'ai cree un bouton lie a la ligne du dgv

[Phil Rob]

Merci à toi de partager ce travail.
Pour ton rafraichissement, il faudrait préciser le problème ... "on" pourrait peut-être y réfléchir.
En principe, le Form actif peut modifier en temps réel l'autre Form. Mais attention, il ne convient pas de refaire le Show sous Button10 à chaque changement de donnée.
Form2 étant ouvert, et Form1 recevant le focus, une modif dans Form1 doit être visible sur Form2.
Je dois avoir un extrait de cours concernant les communications entre Form, je le chercherai demain ...
Bonne soirée,

[Phil Rob]

Voila, ci-joint ComunicacionEntreFormsFR.zip qui contient un dossier de projet pour les tests du minimum nécessaire en matière de communication entre Form. Tu trouveras aussi le fichier ComunicacionEntreFormsFR.pdf qui contient un résumé comparatif des méthodes utilisées dans le projet.
Peut-être as-tu déjà eu ces documents (je vois qu'il s'agit d'une traduction de début février) mais c'est tout ce que j'ai ...
Bonne lecture,

[Invité]

Merci pour la documentation Phil Rob

J'ai reussi a trouver comment faire pour eviter les problemes de refresh en mettant le code pour remplir les textbox du form Notes directement dans le form Main

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
            Dim i As Integer
            i = DataGridView1.CurrentCell.RowIndex
            Notes.TextBox4.Text = DataGridView1.Rows(i).Cells(1).Value.ToString
            Notes.TextBox5.Text = DataGridView1.Rows(i).Cells(4).Value.ToString
            Notes.TextBox6.Text = DataGridView1.Rows(i).Cells(6).Value.ToString
 
            Notes.Show()
 
            ' remplissage textbox
            Dim ds As New DataSet
            Dim cmd As New OleDbCommand("select * from tblToolRequisition where RequistionNum='" & Notes.TextBox4.Text & "' AND PN='" & Notes.TextBox5.Text & "'AND ToolDRG='" & Notes.TextBox6.Text & "'", cn)
 
            Dim da As New OleDbDataAdapter(cmd)
            da.Fill(ds, "tblToolRequisition")
            cn.Open()
            Dim dr As OleDbDataReader = cmd.ExecuteReader
 
            While dr.Read()
                Notes.TextBox1.Text = dr(27).ToString
                Notes.TextBox2.Text = dr(18).ToString
                Notes.TextBox3.Text = dr(17).ToString
            End While
            dr.Close()
            cn.Close()

dans le form Notes j'ai uniquement la commande du bouton Save

Code :

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

1
2
3
4
5
6
7
8
9
    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
 
        cn.Open()
        Dim Update As New OleDbCommand("UPDATE tblToolRequisition SET ToolNotes='" & TextBox1.Text & "', EngineeringNotes='" & TextBox2.Text & "', ProductionNotes='" & TextBox3.Text & "'", cn)
        Update.ExecuteNonQuery()
        cn.Close()
        Me.Hide()
 
    End Sub

En esperant que ca aidera quelqu'un