主题：[求助]出现怪事，令人难解，公式不太听话！

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","")+""")"))
作用：统计不重复的病案数

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 时添加 -=-=-=-
第一个问题尚未解决，请高手指点迷津。
打开文件几分钟后才执行公式，也可能是执行很慢。

egd文件下载