AddCol(GridName,"p",3, False ) And
在当前表增加一逻辑辅助列p：
Eval("ReplaceFor(GridName,""p"",-1,""用户编号"",""="","""+Substitute(ListFor(GridName,"用户编号","fty",-1),"|",""") And ReplaceFor(GridName,""p"",-1,""用户编号"",""="",""")+""")") And
替换p列的值为-1，条件是“fty”为-1的“用户编号”的所有行。
这里使用Eval的主要目的是解决“fty”勾选的不确定性。用了Eval函数“fty”勾选就任意了，使公式具有了通用性。
其中：ListFor(GridName,"用户编号","fty",-1)就是找出"fty"为-1的所有对应“用户编号”。
至于Eval函数的写法，请参考论坛相关贴子学习。
FilterFor("p","=",-1,2) And
筛选p列为-1的行；
ClearGrid("峰谷不平处理表") And
清除"峰谷不平处理表"，最后剩一空行；
CopyRows("峰谷不平处理表","p","=",-1) And
将当前表p列等于-1的行拷贝到"峰谷不平处理表"；
DelRow("峰谷不平处理表",1) And
删除"峰谷不平处理表"的第一行；
DeleteCol(GridName,"p")
最后删除p辅助列。
加好友 
发短信
Post By：2011/11/15 20:57:00 [显示全部帖子]
Post By：2011/11/16 8:17:00 [显示全部帖子]
Post By：2011/11/16 14:09:00 [显示全部帖子]
