易表在线答疑技术与交流用户社区 → 请教:按钮公式问题


  共有5831人关注过本帖树形打印复制链接

主题:请教:按钮公式问题

帅哥哟,离线,有人找我吗?
liuliu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:238 积分:-30 威望:0 精华:0 注册:2006/12/31 11:05:00
请教:按钮公式问题  发帖心情 Post By:2007/10/10 10:14:00 [显示全部帖子]

If([%年份%]="",MsgBox("请选择年份!",0),if(text([%月份%])="",MsgBox("请选择月份!" ,0),if([%品牌%]="",MsgBox("请选择品牌!",0),if(findrow(text([年份])+"源数据","月份"," <> ",[%月份%],"品牌","=",[%品牌%],"年份","=",[%年份%])=0,MsgBox("源数据中没有相应数据!" ,0) ,ClearGrid(Grid) And AppendFor("指标列表","分公司","分公司","分公司","<> ","")  and DelFor(grid,"分公司","=","") and EvalFor(Grid,"年份","[%年份%]") And EvalFor(Grid,"品牌","[%品牌%]") And EvalFor(Grid,"月份","[%月份%]") And RecalcGrid("按月份",1) And SetRowHeight(26)))))
     我在录入窗口选择年份 月份 品牌后,如果"2007源数据"表中没有10月份数据,应显示"源数据中没有相应数据!",但实际操作中,语句if(findrow(text([年份])+"源数据","月份"," <> ",[%月份%],"品牌","=",[%品牌%],"年份","=",[%年份%])=0,MsgBox("源数据中没有相应数据!" ,0),不起作用,即满足条件"月份"," <> ",[%月份%],也不显示没有数据的提示,请指教错在哪

 回到顶部
帅哥哟,离线,有人找我吗?
liuliu
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:238 积分:-30 威望:0 精华:0 注册:2006/12/31 11:05:00
  发帖心情 Post By:2007/10/10 11:37:00 [显示全部帖子]

谢谢!,应该写成"="。当前行的年份是同一年的数据。

 回到顶部
帅哥哟,离线,有人找我吗?
liuliu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:238 积分:-30 威望:0 精华:0 注册:2006/12/31 11:05:00
  发帖心情 Post By:2007/10/10 11:41:00 [显示全部帖子]

在请教以问题:原正确公式为:
If([%年份%]="",MsgBox("请选择年份!",0),if(text([%月份%])="",MsgBox("请选择月份!" ,0),if([%品牌%]="",MsgBox("请选择品牌!",0),Eval("CreateGrid(""临时表"",""指标"",0,""品牌"",0,""分公司"",0,"""+[%年份%]+"年"+Substitute(Substitute(if(Number([%月份%])=10,Left("1|2|3|4|5|6|7|8|9|10|11|12",Number([%月份%])*2),if(Number([%月份%])=11,Left("1|2|3|4|5|6|7|8|9|10|11|12",Number([%月份%])*2+1),if(Number([%月份%])=12,Left("1|2|3|4|5|6|7|8|9|10|11|12",Number([%月份%])*2+2),Left("1|2|3|4|5|6|7|8|9|10|11|12",Number([%月份%])*2-1)))),"|","|"+[%年份%]+"年"),"|","月"",1,""")+"月"",1)") and OpenGrid("临时表") and ClearGrid(Grid) And AppendFor("指标列表","指标","指标")  and DelFor(grid,"指标","=","") and EvalFor(Grid,"分公司","[%分公司%]") And EvalFor(Grid,"品牌","[%品牌%]")  and SetVariable("%A%",3) And Eval(Mid(Rept(" And SetVariable(""%A%"",[%A%]+1) And SetColformula(""临时表"",[%A%],""FindText(""""text([年份])+源数据"""",[指标],""""年份"""",""""="""",[%年份%],""""品牌"""",""""="""",[%品牌%],""""月份"""",""""="""",Col-3,""""分公司"""",""""="""",[分公司])"")",Number([%月份%])),5)) and RecalcGrid("临时表",1) and OpenGrid("按公司3") and ClearGrid(Grid) and renamecol(4,[%年份%]+"年1月")and renamecol(5,[%年份%]+"年2月")and renamecol(6,[%年份%]+"年3月") and renamecol(7,[%年份%]+"年4月") and renamecol(8,[%年份%]+"年5月") and renamecol(9,[%年份%]+"年6月") and renamecol(10,[%年份%]+"年7月") and renamecol(11,[%年份%]+"年8月")and renamecol(12,[%年份%]+"年9月")and renamecol(13,[%年份%]+"年10月") and renamecol(14,[%年份%]+"年11月")and renamecol(15,[%年份%]+"年12月")  and AppendRows("临时表") and DelFor("按公司3","指标","=","")  And SetRowHeight(25))))
   我想修改其中:FindText(""""源数据"""",[指标],""""年份"""",""""="""",[%年份%],""""品牌"""",""""="""",[%品牌%],""""月份"""",""""="""",Col-3,""""分公司"""",""""="""",[分公司])"")
   想用text([年份])+"源数据"替换"源数据"试了多次不行,请教!!

 回到顶部
帅哥哟,离线,有人找我吗?
liuliu
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:238 积分:-30 威望:0 精华:0 注册:2006/12/31 11:05:00
  发帖心情 Post By:2007/10/10 13:43:00 [显示全部帖子]

谢谢

 回到顶部