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

执行这个代码，看弹出什么

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

msgbox(sum) 没有改变？一直是 10、10、10、10.....这样下去？那怎么可能大于50？

那你就加上do while然后加上msgbox弹出值看吧。