以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选后执行选中行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150686)

--  作者:yangwenghd
--  发布时间:2020/6/5 0:04:00
--  筛选后执行选中行
If val(Tables("窗口1_Table1").Current("第三列")) <> \'需采购\' and \'采购中\' Then 
    For Each r As Row In Tables("窗口1_Table1").Rows
        If r("单价") > 333 Then
            r.Checked = True
        End If
    Next
    MessageBox.Show("出单数量大于库存数量")
    Return
End If
(老师,判断窗口1_Table1的单价列大于333同时判断第三列不是需采购和采购中的行选中一个怎么写呀,感谢老师,感谢)

--  作者:有点蓝
--  发布时间:2020/6/5 8:57:00
--  
 For Each r As Row In Tables("窗口1_Table1").Rows
        If r("单价") > 333 andalso r("第三列") <> "需采购" andalso r("第三列") <> "采购" Then
            r.Checked = True
        End If
    Next