主题：帮看下 这个表达式错在那里

SetVariable("%A%",FindRow("签到","用户","=",UserName,-1)) And SetCellText("签到",[%A%],"下班时间",Now())

提示不能识别变量%A%

使用文件变量的方法 虽然不会报错，但没有执行效果

我要给这个自定义按钮设置公式的时候 提示不能识别变量，都不能保存，如何上传这个不能保存的文件呢。

egd文件下载
上传了，请修改输入窗口的按钮公式

-=-=-=- 以下内容由 Egei 在 2012年04月14日 07:23pm 时添加 -=-=-=-
这是一个打卡签到系统，
每条记录里面有，签到用户名，上班时间，下班时间，在岗时间。
每天上班的时候，用户登录后，点击上班按钮 就增加一条记录 记录上用户，和上班时间。
当他下班的时候，点击下下班按钮，这时候需要查找，到他上班登记的那条记录，填上下班时间，并计算出在岗时间。完成一条完整记录。

这个签到系统能记录上下班时间，并统记上岗时间。

谢谢 老师，
如果要让上下班按钮互斥 该怎么写，就是点击了上班按钮后，上班按钮变灰，只能点下班按钮，点击了下班按钮后，下班变灰，只能点击上班按钮

-=-=-=- 以下内容由 Egei 在 2012年04月14日 08:48pm 时添加 -=-=-=-
"+Text([%yourow%])+"  这个是什么意思呢，字符串连接吗，和谁连接

-=-=-=- 以下内容由 Egei 在 2012年04月14日 08:52pm 时添加 -=-=-=-
为什么要用Eval计算出一个字符串呢，不可以直接 Move and Setvariable吗

这个上班逻辑判断解决了一天重复上班的问题，但造成了上午下班后，下午没法上班签到的错误。

egd文件下载
签到功能变得更强大了，不仅记录了上下班时间，还自动计算是否迟到早退，已经迟到早退了多长时间。

-=-=-=- 以下内容由 Egei 在 2012年04月14日 10:05pm 时添加 -=-=-=-
易表能不能自定义函数或者过程呢？好像要实现上述功能，如果全靠if函数的叠加，会很复杂，代码的可读性也大大的下降了。

我太佩服你了，老师，这么复杂的表达式都被你整出来了。If([%ampm%]="am",If(FindRow("签到","用户","=",username,"早上上班","Instr",Today()) > 0,MsgBox(username+"早上已签到!",0),AddRow("签到","日期,用户,早上上班",Today(),UserName,Now()) And Eval("Move("+Text([%yourow%])+",Col)") And RecalcRow(GridName,Row,Row,1)),If([%ampm%]="pm",If(FindRow("签到","用户","=",username,"下午上班","Instr",Today()) > 0,MsgBox(username+"下午已签到!",0),AddRow("签到","日期,用户,下午上班",Today(),UserName,Now()) And Eval("Move("+Text([%yourow%])+",Col)") And RecalcRow(GridName,Row,Row,1)),Eval("Move("+Text([%yourow%])+",Col)") And If(FindRow("签到","用户","=",username,"下午上班","Instr",Today()) > 0,MsgBox(username+"下午已签到!",0),Eval("SetCellText(""签到"","+Text([%yourow%])+",""下午上班"",Now())") And RecalcRow(GridName,Row,Row,1))))

If(
[%ampm%]="am",

If(
FindRow("签到","用户","=",username,"早上上班","Instr",Today()) > 0,
MsgBox(username+"早上已签到!",0),
AddRow("签到","日期,用户,早上上班",Today(),UserName,Now() )
And Eval("Move("+Text([%yourow%])+",Col)")
And RecalcRow(GridName,Row,Row,1)
),

If(
[%ampm%]="pm",

If(FindRow("签到","用户","=",username,"下午上班","Instr",Today()) > 0,
MsgBox(username+"下午已签到!",0),
AddRow("签到","日期,用户,下午上班",Today(),UserName,Now())
And Eval("Move("+Text([%yourow%])+",Col)")
And RecalcRow(GridName,Row,Row,1)
),

Eval("Move("+Text([%yourow%])+",Col)")
And If(FindRow("签到","用户","=",username,"下午上班","Instr",Today()) > 0,
MsgBox(username+"下午已签到!",0),
Eval("SetCellText(""签到"","+Text([%yourow%])+",""下午上班"",Now())")
And RecalcRow(GridName,Row,Row,1)
)
)
)
把老师的语句排了下版，要是公式编辑器也支持这样自动排就好了，代码的可读性就强多了。

但代码是需要阅读的，软件工程需要协同。
易表里面的编辑器，一旦你保存后所有的格式都没有了。以后再读这些代码，就像面条一样缠在一起