Discussion :

[Bob Langlade]

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 :

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

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,

[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.

[Bob Langlade]

Merci Danyel,

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

Connaîtrais-tu la propriété adéquate?

[Danyel]

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

[Bob Langlade]

Merci Danyel,

La propriété DisplayIndex fait mon bonheur.

Code :

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

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 :

Code :

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

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.

[Danyel]

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.

[Bob Langlade]

Peut-être une correction à apporter dans une future mise à jour du framework ?

[Danyel]

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