Tables("指数日线").StopRedraw()

Dim dlg As New OpenFileDialog
dlg.Filter = "TXT文件|*.TXT"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.Ok Then
   count = dlg.FileNames.Length    \'导入个数
p.Minimum = 0
p.Maximum = count
p.Value = 0

  
    Dim dt As Date = Date.Now
    For Each file As String In dlg.FileNames
        cn +=1  \'文件个数
       
        e.Form.Controls("Label3").text = "正在导入第  " & cn & "/" & count & "  只股票:" & vbcrlf & FileSys.GetName(file)
        e.Form.Controls("Label进度条百分比").text = Format(cn/count ,"Percent")
        p.Value =  cn
        Application.DoEvents  \'代码即刻生效----耗时
               
        Dim strs As String = FileSys.ReadAllText(file)
        strs = strs.Trim().Replace(" ", ",").Replace(vbtab, ",").Replace(vblf,"")   
        Dim name As String = FileSys.GetName(file.SubString(0, file.length - 4))
        Dim dr1 As DataRow = DataTables("自选股").Find("代码 = \'" & name & "\'")
        Dim rs() As String = strs.Split(vbcr)

        For i As Integer = 0 To rs.Length - 2
            Dim cs() As String = rs(i).Split(",")
            Dim dr As DataRow = DataTables("指数日线").Addnew()
            dr("代码") = name
            If dr1 Is Nothing Then
                dr("名称") = name
            Else
                dr("名称") = dr1("名称")
            End If
            dr("日期") = cs(0)
            dr("开盘价") = cs(1)
            dr("最高价") = cs(2)
            dr("最低价") = cs(3)
            dr("收盘价") = cs(4)
            dr("成交量") = cs(5)
            dr("金额") = cs(6)
        Next

        GC.Collect  \'释放内存
    Next

    Dim tp As TimeSpan    \'计算耗时
    tp = Date.Now - dt
    e.Form.Controls("Label3").text = "正在导入  " & cn & "  只股票," & "耗时  " & tp.TotalSeconds
   
End If

Tables("指数日线").ResumeRedraw()