代码写再afterload里面的话，label 还是不能一个个的显示正在下载的文件名。。
Dim c As Integer =0
If Tables("任务进度记录").Rows.count>0 Then
c= Tables("任务进度记录").Rows.count
End If
Dim LB1 As WinForm.Label = Forms("进度条").Controls("Label1")
For Each r As DataRow In DataTables("任务进度记录").Select("")
Dim path As String = Functions.Execute("IP设置") & "\管理系统内部截图$\每日截图" & "\" & r("部门") & "\" & r("成员") & "\" & r("日期").Year & "-" & r("日期").month & "\" & r("日期").day & "\"
Functions.Execute("复制图片",r("原画2"),r,path)
LB1.Text = R("制作截图1")
Next
复制图片的Function
Dim sname As String = args(0)
Dim r As DataRow= args(1)
Dim path As String=args(2)
If FileSys.FileExists(ProjectPath & "\Foxtemp\" & sname) =False Then '---如果本机不存在则下载
If FileSys.FileExists(path & sname) =True Then '----如果局域网存在则下载
FileSys.CopyFile(path & sname, ProjectPath & "\Foxtemp\" & sname)
End If
End If
加好友 
发短信
Post By：2020/9/30 18:21:00 [只看该作者]
