'**** DataGridView 直接顯示 ****

    DataGridViewGpFind.Rows.Clear()

    Dim cTitle As String = "代碼,名稱(chēng),今開(kāi),昨收,今收,最高,最低,買(mǎi)一,賣(mài)一,成交量,成交額,買(mǎi)一量,買(mǎi)一,買(mǎi)二量,買(mǎi)二,買(mǎi)三量,買(mǎi)三,買(mǎi)四量,買(mǎi)四,買(mǎi)五量,買(mǎi)五,賣(mài)一量,賣(mài)一,賣(mài)二量,賣(mài)二,賣(mài)三量,賣(mài)三,賣(mài)四量,賣(mài)四,賣(mài)五量,賣(mài)五,日期,時(shí)間"

    Dim aTitle As Array = cTitle.Split(",")

    If Me.DataGridViewGpFind.ColumnCount < 1 Then

    For c = 0 To aTitle.Length - 1

    Me.DataGridViewGpFind.Columns.Add("Col" & c + 1.ToString, aTitle(c))    '添加表格標(biāo)題

    Next

    End If

    '添加表格數(shù)據(jù)

    For r = 0 To GpcxArray.Length - 2

        cRstr = GpcxArray(r)

        aCells = cRstr.Split(",")

        If aCells.Length > 1 Then

    Me.DataGridViewGpFind.Rows.Add()        '添加一空行

    For c = 0 To aTitle.Length - 1

    If Me.DataGridViewGpFind.Columns(c).HeaderText = "日期" Or Me.DataGridViewGpFind.Columns(c).HeaderText = "時(shí)間" Then

    Me.DataGridViewGpFind.Item(c, r).Value = aCells(c)

    Else

    Me.DataGridViewGpFind.Item(c, r).Value = Val(aCells(c))

    End If

    Next

    End If

    Next

    Me.DataGridViewGpFind.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells    '設(shè)定包括Header和所有單元格的列寬自動(dòng)調(diào)整

    Me.DataGridViewGpFind.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells          '設(shè)定包括Header和所有單元格的行高自動(dòng)調(diào)整

    '*******************************