添加一个进度条控件
Dim d1 As Date = Date.Now
DataTables("表A").datarows.clear
Dim lst As List(of String) = DataTables("表B").GetValues("姓名")
For Each s As String In DataTables("表C").GetValues("姓名")
If lst.Contains(s) = False Then lst.Add(s)
Next
Dim pb As WinForm.ProgressBar = e.Form.Controls("ProgressBar1")
pb.Maximum = lst.Count
For Each s As String In lst
Dim dr As DataRow = DataTables("表A").AddNew
dr("姓名") = s
dr("总分")= DataTables("表B").compute("sum(分数)" ," 姓名='" & s & "' ") +DataTables("表C").compute("sum(分数)" ," 姓名='" & s & "' ")
pb.Value += 1
Application.DoEvents()
Next
msgbox("用时" & (Date.Now - d1).TotalMinutes)
加好友 
发短信
Post By：2019/8/3 15:12:00 [只看该作者]
