Discussion :

[guil182]

Bonjour,
Cherchant désespérément la réponse, je me permets de me tourner vers vous.
Après le chargement d'un DataGridView, je veux simplement trier une colonne qui a uniquement des données numériques.
Or, par défaut, on ne peut définir qu'une colonne de type "textbox" et lors du tri, il y a un tri alphanumerique :
Par ex :

1
9
10
2

est trié

1
10
2
9

Mais comment avoir un tri numérique ?

1
2
9
10

Merci d'avance

Guillaume

[Graffito]

Or, par défaut, on ne peut définir qu'une colonne de type "textbox" et lors du tri, il y a un tri alphanumerique :

En "bindant" la DataGridView à un DataSet (ou une collection), les colonnes du DGV seront de type TextBox tant pour des colonnes du DataSet (ou pour les propriétés des items de la collection) de type int ou les DateTime). Toutefois, ces colonnes seront triées en fonction du type de la colonne du DataSet (ou de la propriété de l'item).

[guil182]

Merci.

J'essaye de faire ainsi.
Par contre, j'ai crée une fonction pour créer le dataset lié :

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
    Public Function GetCsvData(ByVal strFolderPath As String, ByVal strFileName As String) As DataTable
 
        Dim strConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFolderPath & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"";"
 
 
        Dim conn As New OleDbConnection(strConnString)
 
        Try
            conn.Open()
            Dim cmd As New OleDbCommand("SELECT * FROM [" & strFileName & "]", conn)
            Dim da As New OleDbDataAdapter()
 
            da.SelectCommand = cmd
 
            Dim ds As New DataSet()
 
            da.Fill(ds)
            da.Dispose()
 
            Return ds.Tables(0)
        Catch
            Return Nothing
        Finally
            conn.Close()
        End Try
 
    End Function

Mais à l’exécution, il ne prend pas en compte le délimiteur ";"....

Merci encore de votre aide

Guillaume

[guil182]

il prend la virgule(,) comme séparateur et non pas le point virgule ( malgré la chaine :

Code :

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

Dim strConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFolderPath & ";Extended Properties=""text;HDR=YES;FMT=Delimited(;)"""

Merci d'avance de votre aide

[Graffito]

Dans le cas particulier d'un DataSet lu à partir d'un fichier texte, on peut :

• ajouter une colonne "xxxInt" de type int dans la DataTable,
• transférer dans "xxxInt" les entiers déduits de la colonne "xxxTexte" (string représentant des entiers lue lors du Fill du DataSet)
• supprimer la colonne "xxxTexte" de la dataTable.

[guil182]

Merci j'ai trouvé :

il faut placer un fichier schema.ini sous le même répertoire que le fichier .csv.

le contenu de ce fichier doit etre :

[nom du fichier.csv]
Format=Delimited(