以文本方式查看主题 - 易表在线答疑 (http://www.egrid2000.com/dvbbs/index.asp) -- 用户社区 (http://www.egrid2000.com/dvbbs/list.asp?boardid=2) ---- 请教:按钮公式问题 (http://www.egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=9893) |
-- 作者:liuliu -- 发布时间: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),不起作用,即满足条件"月份"," <> ",[%月份%],也不显示没有数据的提示,请指教错在哪 |
-- 作者:Czy -- 发布时间:2007/10/10 10:33:00 -- 这里有两个问题: findrow(text([年份])+"源数据","月份"," <> ",[%月份%],"品牌","=",[%品牌%],"年份","=",[%年份%])=0 执行此公式时要看你的焦点行中的年份列是那年的数据,如果当前行的年份2006年,而变量中的年份是2007年,就牛头不对马嘴了。 另一个问题,如果说查找相同年份、月份、品牌,我想公式中的不等于应该改成等于才对。 没见到文件,上面只是我的分析,供参考。 |
-- 作者:liuliu -- 发布时间:2007/10/10 11:37:00 -- 谢谢!,应该写成"="。当前行的年份是同一年的数据。 |
-- 作者:liuliu -- 发布时间: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([年份])+"源数据"替换"源数据"试了多次不行,请教!! |
-- 作者:Czy -- 发布时间:2007/10/10 12:03:00 -- ""FindText(text([年份])+""""源数据"""",[指标],""""年份"""",""""="""",[%年份%],""""品牌"""",""""="""",[%品牌%],""""月份"""",""""="""",Col-3,""""分公司"""",""""="""",[分公司])"" |
-- 作者:liuliu -- 发布时间:2007/10/10 13:43:00 -- 谢谢 |
-- 作者:jackslowfuck -- 发布时间:2008/3/16 14:22:00 -- [求助]像此类问题的代码怎么写? [这个贴子最后由smileboy在 2008/03/16 04:14pm 第 1 次编辑] 现有文件A.egd B.egd 要将A.egd文件内“表3”的最后一行数据copy到B.egd的“表2”内。 -=-=-=- 以下内容由 jackslowf##k 在 2008年03月16日 02:25pm 时添加 -=-=-=- 而且在下次输入时B.egd表2的数据是会逐行添加的 提示:标题不明确,自行修改一下!
|
-- 作者:jackslowfuck -- 发布时间:2008/3/16 14:58:00 -- 望各位老师不吝赐教,小弟在线急等。。 |
-- 作者:smileboy -- 发布时间:2008/3/16 15:37:00 -- 参考export |
-- 作者:jackslowfuck -- 发布时间:2008/3/16 15:44:00 -- 我知道用export命令,但是每次A.egd文件内“表3”内数据的行数是不确定的,而我每次需要的只是最后一行。请问要怎么写? |