Question

vb.net 将csv 数据导入datagridview

求一段用vb.net 把CSV文件导入到datagridview的代码。网上的资源比较少，已测试过不少，各位知道好友不要粘贴复制。

Answer 1

本例子在窗体上添加一个按钮，一个空的DataGridView控件；

在按钮的单击事件里编写代码如下：

        '读取CSV文件到DataGridView控件
        Dim r As New StreamReader("C:\工作簿1.csv", System.Text.Encoding.Default) '用StreamReader打开文件
        Dim MyRows(0) As String
        Dim d() As String
        Dim i As Integer = -1
        Dim j As Integer = 0

        Do While r.Peek > -1 '是否到文件尾
            i = i + 1
            ReDim Preserve MyRows(i)
            MyRows(i) = r.ReadLine      '从打开的文件中读取一行内容
        Loop
        r.Close()      '关闭对象

        '获得数据的列数
        d = Split(MyRows(1), ",")
        '首先在DataGridView控件中添加列
        DataGridView1.ColumnCount = UBound(d) + 1
        '然后在DataGridView控件中添加行
        DataGridView1.Rows.Add(UBound(MyRows))

        '在DataGridView控件中添加数据
        For i = 0 To UBound(MyRows)
            d = Split(MyRows(i), ",")
            For j = 0 To UBound(d)
                DataGridView1.Item(j, i).Value = d(j)
            Next
        Next