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

Dim f As New Filler
f.SourceTable = DataTables("order") '指定数据来源  想在这个位置加上一个筛选条件 ischeck <>5 and ischeck <>7 代码应该怎么写？

f.SourceCols = "ID,leaderID,productID,productNum,productRemarks,color,weight,ischeck,qrbz,overtime"  ' 指定数据来源列
f.DataTable = DataTables("订单处理") '指定数据接收表
f.DataCols   = "ID,leaderID,productID,productNum,productRemarks,color,weight,ischeck,qrbz,overtime" '指定数据接收列
在这个位置再加上一个 如果productNum不为空。 则锁定该行。

f.Fill() '填充数据

黄色部分是想要添加的格式，但是不知道怎么写才好？还望各位大侠不吝赐教啊！！

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

非常非常感谢，！！