主题：[求助]进度条

老师，我要在窗口中设置一个进度条（导入其他表的数据）。

Dim Cols1() As String = {"代码","名称","涨幅","现价","总手","现手","昨收"}
Dim Cols2() As String = {"代码","名称","涨幅","现价","总手","现手","昨收"}

Dim drs As List(Of DataRow) = DataTables("当天收盘数据").Select("")
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum =  drs.Count - 1 '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值

For j As Integer = 0 To drs.count - 1
    Dim dr1 As DataRow = drs(j)
    Dim dr2 As DataRow = DataTables("数据库更新").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
    p.Value = j
Next

老师，在导入数据时接收表边框滚动条闪乐，能控制吗？

Dim Cols1() As String = {"代码","名称","涨幅","现价","总手","现手","昨收"}
Dim Cols2() As String = {"代码","名称","涨幅","现价","总手","现手","昨收"}

Dim drs As List(Of DataRow) = DataTables("当天收盘数据").Select("")
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum =  drs.Count - 1 '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值
DataTables("当天收盘数据").StopRedraw
For j As Integer = 0 To drs.count - 1
    Dim dr1 As DataRow = drs(j)
    Dim dr2 As DataRow = DataTables("数据库更新").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
    p.Value = j
    Application.Doevents
Next
DataTables("当天收盘数据").ResumeRedraw