[VB 2008] Ordre des colonnes DataGridView avec une source de données LinkToSql

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Je découvre les possibilités de requêtes offertes par Link To SQL.
J’ai essayé le petit code suivant sur une base Sage Ligne 100 :
Code:

1 2 3 4 5 6 7 8 Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating Dim Db As New SageDataContext Db.DeferredLoadingEnabled = False Dim Elements = From Customers In Db.F_COMPTET _ Select Number = Customers.CT_Num, Name = Customers.CT_Intitule, MaxCredit = Customers.CT_Encours _ Where (Name.Contains(TextBox1.Text)) DataGridView1.DataSource = Elements End Sub
Sage étant ma classe LinkToSql contenant entre autres la base « F_COMPTET ».

La propriété AutoGenerateColumns est à « True ».

Le résultat est correct dans l’objet Elements, mais les en-têtes de colonnes sont affichées par ordre alphabétique "MaxCredit, Name, Number" plutôt que dans l’ordre de sélection "Number, Name, MaxCredit".

Quelqu’un aurait-il une idée pour corriger ce problème, sans créer les colonnes dans le designer ou par code ?

Merci,

27/06/2008, 14h08
Danyel

Ca ressemble fort à un tri alphanumerique automatique dans elements.
Je pense que la meilleure solution, et si tu connais le nom des colonnes, c'est de faire la modification manuellement dans ton dgv apres appel.
27/06/2008, 14h36
Bob Langlade

Merci Danyel,

J'ai trouvé la propriété Index dans la collection Columns du Datagridview, mais elle est "ReadOnly" :aie:.

Connaîtrais-tu la propriété adéquate?
27/06/2008, 17h48
Danyel

http://msdn.microsoft.com/fr-fr/libr...4f(VS.80).aspx

Merci Danyel, :D

La propriété DisplayIndex fait mon bonheur.

Code:

1
2
3
4
5
6
7
8
9
10
11
        Dim Db As New SageDataContext
        Db.DeferredLoadingEnabled = False
        Dim Elements = From Customers In Db.F_COMPTET _
                      Select Number = Customers.CT_Num, Name = Customers.CT_Intitule, MaxCredit = Customers.CT_Encours _
                      Where (Name.Contains(TextBox1.Text))
        DataGridView1.DataSource = Elements
        With DataGridView1.Columns
            .Item("Number").DisplayIndex = 0
            .Item("Name").DisplayIndex = 1
            .Item("MaxCredit").DisplayIndex = 2
        End With

Si je n'utilise pas la commande Select et que je retourne toutes les colonnes, elles apparaissent dans l'ordre établi par la base, mais pas par ordre alphabétique 8O :

Code:

1
2
3
4
5
6
7
    Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
        Dim Db As New SageDataContext
        Db.DeferredLoadingEnabled = False
        Dim Elements = From Customers In Db.F_COMPTET _
                      Where (Customers.CT_Intitule.Contains(TextBox1.Text))
        DataGridView1.DataSource = Elements
    End Sub

Il y a une subtilité qui doit m'échapper.

28/06/2008, 09h48
Danyel

Citation:

Envoyé par Bob Langlade

Il y a une subtilité qui doit m'échapper.

Je pense que le fait de demander sans critere retourne sans modifier quoi que ce soit, au contraire du select qui effectue une recherche et doit automatiquement trier.
28/06/2008, 16h56
Bob Langlade

Peut-être une correction à apporter dans une future mise à jour du framework ?
28/06/2008, 19h44
Danyel

Je pense qu'un expert sql doit avoir une reponse, voire la solution.
(ce qui n'est pas mon cas ;))