以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  想给这段代码价格条件。应该怎么改？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21459)
--  作者：jinzhengbe
--  发布时间：2012/7/13 1:13:00
--  想给这段代码价格条件。应该怎么改？

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() \'填充数据

 

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

 

[此贴子已经被作者于2012-7-13 1:59:06编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/7/13 8:44:00
--  

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

 

[此贴子已经被作者于2012-7-13 8:46:36编辑过]
--  作者：jinzhengbe
--  发布时间：2012/7/13 22:01:00
--  

非常非常感谢，！！