主题：[求助]请教一个关于筛选的公式

见编辑栏内
egd文件下载

谢谢wjq1072总版主。就是如此，真的太神了。
还有些公式没弄明白。Eval("ReplaceFor(GridName,""p"",-1,""用户编号"",""="","""+Substitute(ListFor(GridName,"用户编号","fty",-1),"|",""")  重算、替换...筛选为列表项....没有搞懂。
请wjq1072总版主有时间时讲解可否？再次表示深深的谢意！

特别的感谢wjq1072总版主耐心细致的讲解和指教，感激之情无以言表，只能谢谢！
把三个公式合在一起：SetLabel("  ","稍等---") And AddCol(Grid,"yy",1, False ) And AddCol(Grid,"fty",3, False ) And EvalFor(Grid,"yy","If(Cell(Row,""示数类型"")=""正有功谷"" And Cell(Row +1,""示数类型"")=""正有功总"" And Cell(Row-1,""示数类型"")=""正有功峰"",Cell(Row+1,""本次示数"")-Cell(Row-1,""本次示数""),"""")") And EvalFor(Grid,"fty","If(Cell(Row,""示数类型"")=""正有功谷"" And Cell(Row+1,""示数类型"")=""正有功总"" And Cell(Row-1,""示数类型"")=""正有功峰"" And [本次示数] <> [yy], - 1,0)") And AddCol(GridName,"p",3, False ) And Eval("ReplaceFor(GridName,""p"",-1,""用户编号"",""="","""+Substitute(ListFor(GridName,"用户编号","fty",-1),"|",""") And ReplaceFor(GridName,""p"",-1,""用户编号"",""="",""")+""")") And FilterFor("p","=",-1,2) And ClearGrid("峰谷不平处理表") And CopyRows("峰谷不平处理表","p","=",-1) And DelRow("峰谷不平处理表",1) And DeleteCol(GridName,"p") And OpenGrid("峰谷不平处理表")  
省去两列，公式经测试可用，还可以优化否？

-=-=-=- 以下内容由 swg-1954 在 2011年11月16日 00:48pm 时添加 -=-=-=-
Eval("ReplaceFor(GridName,""p"",-1,""用户编号"",""="","""+Substitute(ListFor(GridName,"用户编号","fty",-1),"|",""") And ReplaceFor(GridName,""p"",-1,""用户编号"",""="",""")+""")")这个公式只能慢慢悟。在表去掉Eval为ReplaceFor(GridName,"p",-1,"用户编号","=","8102438288") And ReplaceFor(GridName,"p",-1,"用户编号","=","8102470896") And ReplaceFor(GridName,"p",-1,"用户编号","=","8102470895") And ReplaceFor(GridName,"p",-1,"用户编号","=","8102470893") And ReplaceFor(GridName,"p",-1,"用户编号","=","8102470891")为什么这样，只能在老师的帮助下去体验。

谢谢wjq1072总版主的指教，慢慢体验，慢慢琢磨吧！