在数据多的时候，这段代码运行的时间会比较长，如何能加上弹窗的进度条呢？谢谢！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在数据多的时候，这段代码运行的时间会比较长，如何能加上弹窗的进度条呢？谢谢！

共有1975人关注过本帖树形打印复制链接主题：在数据多的时候，这段代码运行的时间会比较长，如何能加上弹窗的进度条呢？谢谢！

erdbeer

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：445 积分：4777 威望：0 精华：0 注册：2010/4/11 14:09:00

在数据多的时候，这段代码运行的时间会比较长，如何能加上弹窗的进度条呢？谢谢！ 发帖心情

Post By：2019/4/27 23:35:00 [只看该作者]

For Each dr As Row In Tables("库存").Rows

If dr("照片号码") <> "" Then

Dim s As String = dr("照片号码")

Dim s1 As String = dr("箱号")

Dim qz As String = "\\work01\E\" '取照片地址

If FileSys.FileExists(qz & s & ".jpg") Then

FileSys.CopyFile(qz & s & ".jpg", Vars("照片地址") & s1 & ".jpg",True)

End If

MessageBox.Show("照片已经输出完毕...!", "提示")

在数据多的时候，这段代码运行的时间会比较长，如何点击该按钮，能出现弹窗的进度条呢？等图片都复制并改名完了，弹窗自动关闭，谢谢！

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/28 9:40:00 [只看该作者]

1、做一个进度条窗口，加入进度条

2、可以做成异步的，也就是把你要执行的代码，写成函数调用

主题：在数据多的时候，这段代码运行的时间会比较长，如何能加上弹窗的进度条呢？谢谢！