以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]进度条  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74024)
--  作者：江南小城
--  发布时间：2015/8/31 17:41:00
--  [求助]进度条
老师，我要在窗口中设置一个进度条（导入其他表的数据）。
下面是按钮代码
Dim Cols1() As String = {"代码","名称","涨幅","现价","总手","现手","昨收"}
Dim Cols2() As String = {"代码","名称","涨幅","现价","总手","现手","昨收"}
For Each dr1 As DataRow In DataTables("当天收盘数据").Select("")
    Dim dr2 As DataRow = DataTables("数据库更新").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next
--  作者：大红袍
--  发布时间：2015/8/31 17:45:00
--  

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
--  作者：江南小城
--  发布时间：2015/8/31 18:16:00
--  
老师，在导入数据时接收表边框滚动条闪乐，能控制吗？
--  作者：大红袍
--  发布时间：2015/8/31 19:11:00
--  


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