Bonjour;
je souhaite importer un csv vers un datagridview en mettant la 1ere ligne de mon fichier csv comme header
j'utilise le code ci-dessous qui fonctionne mais j'ai toujours le même pb: la 1ere ligne n'est pas le header de mon datagridview
Comment faire, Merci de votre aide.
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48 Dim TextFileReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\Users\test\resultats.csv") TextFileReader.TextFieldType = FileIO.FieldType.Delimited TextFileReader.SetDelimiters(",") Dim TextFileTable As DataTable = Nothing Dim Column As DataColumn Dim Row As DataRow Dim UpperBound As Int32 Dim ColumnCount As Int32 Dim CurrentRow As String() While Not TextFileReader.EndOfData Try CurrentRow = TextFileReader.ReadFields() If Not CurrentRow Is Nothing Then ''# Check if DataTable has been created If TextFileTable Is Nothing Then TextFileTable = New DataTable("TextFileTable") ''# Get number of columns UpperBound = CurrentRow.GetUpperBound(0) ''# Create new DataTable For ColumnCount = 0 To UpperBound Column = New DataColumn() Column.DataType = System.Type.GetType("System.String") Column.ColumnName = "Column" & ColumnCount Column.Caption = "Column" & ColumnCount Column.ReadOnly = True Column.Unique = False TextFileTable.Columns.Add(Column) Next End If Row = TextFileTable.NewRow For ColumnCount = 0 To UpperBound Row("Column" & ColumnCount) = CurrentRow(ColumnCount).ToString Next TextFileTable.Rows.Add(Row) End If Catch ex As _ Microsoft.VisualBasic.FileIO.MalformedLineException MsgBox("Line " & ex.Message & _ "is not valid and will be skipped.") End Try End While TextFileReader.Dispose() 'frmMain.DataGrid1.DataSource = TextFileTable DataGridView3.DataSource = TextFileTable
Partager