主题：想给这段代码价格条件。应该怎么改？

Dim f As New Filler
f.SourceTable = DataTables("order")
F.Filter = "ischeck <>5 and ischeck <>7"
.....

For Each dr As DataRow  in DataTables("订单处理").Select("productNum Is Not Null")

    dr.Locked = True

Next
.

建议细看：

http://www.foxtable.com/help/topics/0680.htm