以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  [求助]公式运行出现不对，特请教。  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=1685)
--  作者：swg-1954
--  发布时间：2011/11/11 19:27:00
--  [求助]公式运行出现不对，特请教。
详见编辑栏
egd文件下载
--  作者：swg-1954
--  发布时间：2011/11/11 21:24:00
--  
顶
--  作者：swg-1954
--  发布时间：2011/11/12 15:20:00
--  
顶上去
--  作者：wjq1072
--  发布时间：2011/11/12 16:02:00
--  
顶是没有用的！还得把问题叙述详细一点。
--  作者：swg-1954
--  发布时间：2011/11/12 16:08:00
--  
按钮“查询峰谷不平”里的公式错在何处？
--  作者：swg-1954
--  发布时间：2011/11/12 20:38:00
--  
这个公式错在那儿？
SetLabel("  ","稍等---") And SortCol("示数类型",1) And SortCol("电能表资产编号",1) And AddCol(Grid,"tt",1, False ) And AddCol(Grid,"pp",3, False ) And EvalFor(Grid,"tt","If(Cell(Row,""示数类型"")=""正有功谷"" And Cell(Row +1,""示数类型"")=""正有功总"" And Cell(Row-1,""示数类型"")=""正有功峰"",Cell(Row+1,""本次示数"")-Cell(Row-1,""本次示数""),"""")") And EvalFor(Grid,"pp","Cell(Row,""示数类型"")=""正有功谷"" And Cell(Row+1,""示数类型"")=""正有功总"" And Cell(Row-1,""示数类型"")=""正有功峰"" And [本次示数] <> [tt]") And If(MinFor(Grid,"pp")=0,MsgBox("峰谷正常!",0),Eval("MsgBox("""+Text(Substitute(ListFor(Grid,"用户编号","pp",-1)+"|","|","用户出错"+Char(13)))+""",0)")) And SetLabel("  ","稍等---") And If(MsgBox("峰谷错误已经查到是否需要筛选出来更改错误？",2,4),EvalFor(Grid,"pp","If(Cell(Row +1,""pp"")=-1,-1,[pp])",1,Rows -1) And EvalFor(Grid,"pp","If(Cell(Row +2,""pp"")=-1,-1,[pp])",2,Rows-1) And FilterFor("pp","=",-1,2), True )And ClearGrid("峰谷不平处理表") And CopyRows("峰谷不平处理表","pp","=",-1) And DelRow("峰谷不平处理表",1) And DeleteCol(Grid,"pp") And DeleteCol(Grid,"tt") And OpenWindow(0) And SetLabel(" ","OK!")
--  作者：lyang70
--  发布时间：2011/11/15 15:39:00
--  
你还是直接描述出你这个按钮要实现的目的吧...