批量导入大量数据，程序响应要一定时间，我想在这段时间出现一进度条。当导入结束，进度条显示导入成功。

显示全部楼层 · 2011-1-3 23:28:10

请问代码如何写？语言为：VB
我导入的是excel 中sheet1的数据，算是整表复制吗？如果这样，又应如何写代码呢？

千问 · 2011-1-3 23:28:10

看你的数据是如何导入了，如果是循环导入，你可以先统计一下总共要导入多少条记录，把进度条的最大值设置为要导入的记录数，最小值0，将进度条置0，然后在循环里每导入一条记录，就把进度条的值+1，这样导入完数据后，进度条也走完了.还有一种就是如果不是循环一条一条的分析导入，而是整表复制的那种，虽然需要一定的时间，但是这段时间是不能进行其它操作的了.

千问 · 2011-1-3 23:28:10

要用到ProgressBar控件（位于Microsoft Windows Common Contotrols 6.0里）。代码为：Private Sub Form_Load()Dim i%, count(3000) As Integer
'假设表1的数据量是3000Print "Data Initialization..."Pr