Discussion :

[emayen01]

Bonjour,

dans un formulaire , j'ai 2 boutons Bt_flecheHaut et Bt_flecheBas qui permettent de changer l'ordre de la ligne selectionnée, je les ai codés mais j'ai un problème en excécution :
normalement mon bouton haut marche un peu mais celui du bas fait la meme chose que le haut , quand je clique sur l'un des 2 , ca remonte jusqu'a le haut d'un coup (et non pas d'une ligne )!

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
   Private Sub Bt_flecheHaut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_flecheHaut.Click
 
 
        Dim mx, ord
        If Me.DGV_relations.CurrentRow.Index < 0 Then Exit Sub
        mx = commande.getFirstElement("SELECT max(ordre) FROM tblTypeAssoc", connec)
        ord = commande.getFirstElement("SELECT ordre FROM tblTypeAssoc WHERE idTypeAssoc=" & Me.DGV_relations.CurrentRow.Index, connec)
        If ord = 1 Then Exit Sub
        commande.executeSQL("UPDATE tblTypeAssoc SET ordre = " & mx + 1 & " WHERE ordre =" & ord, connec)
        commande.executeSQL("UPDATE tblTypeAssoc SET ordre=" & ord & " WHERE ordre=" & ord - 1, connec)
        commande.executeSQL("UPDATE tblTypeAssoc SET ordre=" & ord - 1 & " WHERE ordre=" & mx + 1, connec)
        rafraichir()
    End Sub
 
    Private Sub Bt_flecheBas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_flecheBas.Click
 
        Dim mx, ord
        If Me.DGV_relations.CurrentRow.Index < 0 Then Exit Sub
        mx = commande.getFirstElement("SELECT max(ordre) FROM tblTypeAssoc", connec)
        ord = commande.getFirstElement("SELECT ordre FROM tblTypeAssoc WHERE idTypeAssoc=" & Me.DGV_relations.CurrentRow.Index, connec)
        If ord = mx Then Exit Sub
        commande.executeSQL("UPDATE tblTypeAssoc SET ordre=" & mx + 1 & " WHERE ordre=" & ord, connec)
        commande.executeSQL("UPDATE tblTypeAssoc SET ordre=" & ord & " WHERE ordre=" & ord + 1, connec)
        commande.executeSQL("UPDATE tblTypeAssoc SET ordre=" & ord + 1 & " WHERE ordre=" & mx + 1, connec)
        rafraichir()
    End Sub

ma requete sql dans le procedure rafraichir est :

Code :

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

dtreader = commande.requete("SELECT idTypeAssoc,ordre AS Ordre, TypeAssoc AS Préfix, Description AS Description, export AS Exporter FROM dbo.tblTypeAssoc ORDER BY ordre", connec)

est ce que quelqu'un peut m'aider , merci d'avance

[roster]

Je ne comprends pas ce que tu souhaites faire exactement. Car si tu souhaites simplement changer de ligne dans un datagridview, tu ne dois pas effectuer de nouvelles requêtes sql. Dans ta méthode rafraichir(), tu effectues un tri de ta base de données, il est donc normal que ce soit toutes les colonnes qui soient retriées et que cela change tout l'affichage de tes lignes.
Si tu veux juste passer d'une ligne à une autre, il vaudrait sûrement mieux regarder du coté de la propriété row de ton datagrid. En modifiant simplement l'index du row, tu devrais arriver au résultat escompté.

Code :

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

DataGridView1.CurrentCell = DataGridView1.Item(column, row)

[emayen01]

Je ne comprends pas ce que tu souhaites faire exactement. Car si tu souhaites simplement changer de ligne dans un datagridview, tu ne dois pas effectuer de nouvelles requêtes sql. Dans ta méthode rafraichir(), tu effectues un tri de ta base de données, il est donc normal que ce soit toutes les colonnes qui soient retriées et que cela change tout l'affichage de tes lignes.
Si tu veux juste passer d'une ligne à une autre, il vaudrait sûrement mieux regarder du coté de la propriété row de ton datagrid. En modifiant simplement l'index du row, tu devrais arriver au résultat escompté.

Code :

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

DataGridView1.CurrentCell = DataGridView1.Item(column, row)

en fait , supposant que j'ai 4 lignes qui s'affichent dans mon datagridview apres execution du programme.
lorsque je clique une ligne , celle la est selectionnée (colorée en bleu) , je veux quand je clique sur le bouton haut ou bas , passer à la ligne precedente ou suivante , voila .

et je suis obligé de faire ca car je m'inspire de mon ancien code VBA et je suis obligé de respecter les syntaxes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub btOrdreDown_Click()
    Dim mx, ord
    If Me.listType.ListIndex < 0 Then Exit Sub
    mx = modADO.returnFElement("SELECT max(ordre) FROM tblTypeAssoc")
    ord = modADO.returnFElement("SELECT ordre FROM tblTypeAssoc WHERE idTypeAssoc=" & Me.listType)
    If ord = mx Then Exit Sub
    modADO.executeSQL "UPDATE tblTypeAssoc SET ordre=" & mx + 1 & " WHERE ordre=" & ord
    modADO.executeSQL "UPDATE tblTypeAssoc SET ordre=" & ord & " WHERE ordre=" & ord + 1
    modADO.executeSQL "UPDATE tblTypeAssoc SET ordre=" & ord + 1 & " WHERE ordre=" & mx + 1
    Me.listType.Requery
End Sub

[roster]

Alors c'est bien dans ton datagrid que tu dois modifier la sélection et non pas modifier le tri de ta base de données.

[emayen01]

Alors c'est bien dans ton datagrid que tu dois modifier la sélection et non pas modifier le tri de ta base de données.

le code marche mais à l'envers quoi
il faut juste des petites modifications à faire , moi je pense au niveau de :

en VBA :

Code :

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

If Me.listType.ListIndex < 0

en Vb.net :

Code :

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

If Me.DGV_relations.CurrentRow.Index < 0 Then Exit Sub

sinon qu'est ce que tu me proposes ?