以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多次弹出窗口问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150791)

--  作者:yangwenghd
--  发布时间:2020/6/7 22:39:00
--  多次弹出窗口问题
老师,能帮忙看看这个吗?就是红色那段可以只执行一次吗?现在的问题是有多少行就会弹出多少个这个小窗口。感谢 感谢
For Each r As Row In Tables("做合同窗口_Table1").Rows
    If r("下单_单后库存") < 0 AndAlso r("下单_单货状态") <> "需采购" Then
        \'If r("单价") < 0 AndAlso r("第三列") <> "需采购" AndAlso r("第三列") <> "采购中" Then
        r.Checked = True
        MessageBox.Show("订单数量超过库存数量.")
    End If
Next

--  作者:有点蓝
--  发布时间:2020/6/7 22:50:00
--  
MessageBox.Show("订单数量超过库存数量.")
return