| 以文本方式查看主题 - 易表在线答疑 (http://egrid2000.com/dvbbs/index.asp) -- 用户社区 (http://egrid2000.com/dvbbs/list.asp?boardid=2) ---- [求助]出现怪事，令人难解，公式不太听话！ (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=2205) |
| -- 作者：yanzhen -- 发布时间：2011/7/10 19:42:00 -- [求助]出现怪事，令人难解，公式不太听话！ 1、定时器公式时启动文件时不执行 OpenMenu("病案管理") And AddTimer("a",600,"SetLabel(""ZT"",""当前活动表名：""+text(GridName)) And SetLabel(""CD"",""存档病历总数：""+text([%存档总数%]))And SetLabel(""XZ"",""本年新增病例：""+text([%新增病例%])) And SetLabel(""ZY"",""本年住院病例：""+text([%住院病例%])) And SetLabel(""MZ"",""本年门诊病例：""+text([%门诊病例%])) And SetLabel(""YH"",""当前操作用户：""+text(Username))") 2、下面公式有时执行错误，造成文件自动关闭 该公式为变量 Len(Eval("("""+Substitute(Substitute(Substitute(Substitute(Substitute(Substitute(Substitute(Substitute(Substitute(Substitute(Text(ListFor("住院病例","病案号",1)),"1",""),"2",""),"3",""),"4",""),"5",""),"6",""),"7",""),"8",""),"9",""),"0","")+""")")) -=-=-=- 以下内容由 yanzhen 在 2011年07月10日 07:48pm 时添加 -=-=-=- 定时器公式执行很慢 -=-=-=- 以下内容由 yanzhen 在 2011年07月10日 08:37pm 时添加 -=-=-=- 变量公式有时不流畅 -=-=-=- 以下内容由 yanzhen 在 2011年07月10日 09:29pm 时添加 -=-=-=- 变量名称：[%存档总数%] 公式： Len(Eval("("""+Substitute(Substitute(Substitute(Substitute(Substitute(Substitute(Substitute(Substitute(Substitute(Substitute(Text(ListFor("住院病例","病案号",1)),"1",""),"2",""),"3",""),"4",""),"5",""),"6",""),"7",""),"8",""),"9",""),"0","")+""")")) 作用：统计不重复的病案数 |
| -- 作者：yanzhen -- 发布时间：2011/7/10 21:14:00 -- egd文件下载 -=-=-=- 以下内容由 yanzhen 在 2011年07月10日 10:48pm 时添加 -=-=-=- 问题已解决： 公式：If(Len(ListFor("住院病例","病案号",1))>0,Len(ListFor("住院病例","病案号",1))-Len(Substitute(ListFor("住院病例","病案号",1),"|",""))+1,0) -=-=-=- 以下内容由 yanzhen 在 2011年07月10日 10:51pm 时添加 -=-=-=- 参考 czy 版主的公式。 原来可以相减的。 -=-=-=- 以下内容由 yanzhen 在 2011年07月10日 10:57pm 时添加 -=-=-=- 我原来的公式：Len(Eval("("""+Substitute(Substitute(Substitute(Substitute(Substitute(Substitute(Substitute(Substitute(Substitute(Substitute(Text(ListFor("住院病例","病案号",1)),"1",""),"2",""),"3",""),"4",""),"5",""),"6",""),"7",""),"8",""),"9",""),"0","")+""")")) 运行很慢，还偶而死机 -=-=-=- 以下内容由 yanzhen 在 2011年07月10日 11:01pm 时添加 -=-=-=- 第一个问题尚未解决，请高手指点迷津。 打开文件几分钟后才执行公式，也可能是执行很慢。 |
| -- 作者：wjq1072 -- 发布时间：2011/7/11 8:35:00 -- egd文件下载 |