bouton fleche haut et bas en Vb.net

Version imprimable

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:

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:

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

12/06/2009, 13h42
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:

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

Citation:

Envoyé par 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:

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:

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

12/06/2009, 14h15
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.
12/06/2009, 14h29
emayen01

Citation:

Envoyé par 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.

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

en VBA :

Code:

If Me.listType.ListIndex < 0

en Vb.net :

Code:

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

sinon qu'est ce que tu me proposes ?