主题：遇到了一个Do与For Each嵌套循环的就无响应问题

Dim t3 as Double = 50
Dim t4 as Double = 10
Dim sum As Double = DataTables("本地关联表").Compute("Sum(补货数量)",filter & " And " & "补货数量 >= 0 ")
If sum < t3 Then
Do While sum < t3
For Each dr2 As DataRow In DataTables("本地关联表").Select(filter & " And " & "补货数量 <= 0 ", "补货数量 DESC")
dr2("补货数量") = Math.Ceiling( dr2("补货数量") / t4 ) * t4 + t4
If dr2("补货数量") > 0 Then
sum = sum + t4
End If
Next
Loop
End If