主题：帮忙改一下这个公式。

AddCol("未缴费记录","X",3,False) And EvalFor("未缴费记录","X","[用户信息!预缴费余额]<=[话费合计]") And if(FindRow("未缴费记录","X","=",-1)=0,MsgBox(没有需要处理的数据！",0)And DeleteCol("未缴费记录","X"),EvalFor("未缴费记录","X","[用户信息!预缴费余额]>[话费合计]") And AppendRows("未缴费记录","X","=",-1) And EvalFor(Grid,"上次余额","if(text([处理日期])="""",FindText(""用户信息"",""预缴费余额"",""电话号码"",""="",[电话号码]),[上次余额])") And EvalFor(Grid,"处理日期","if(text([处理日期])="""",today(),[处理日期])") And EvalFor(Grid,"操作员","if([操作员]="""",username,[操作员])") And DelFor(Grid,"电话号码","=","") And RecalcCol("本次余额") And EvalFor("用户信息","处理日期","if(text([处理日期])="""",[预缴费批处理!处理日期],if(Number([处理日期])<Number(FindText(""预缴费批处理"",""处理日期"",""电话号码"",""="",[电话号码],-1)),FindText(""预缴费批处理"",""处理日期"",""电话号码"",""="",[电话号码],-1),[处理日期]))")And EvalFor("用户信息","预缴费余额","if(text([处理日期])="""",[预缴费余额],if(Number([处理日期])<=Number(FindText(""预缴费批处理"",""处理日期"",""电话号码"",""="",[电话号码],-1)),FindText(""预缴费批处理"",""本次余额"",""电话号码"",""="",[电话号码],-1),[预缴费余额]))") And DelFor("未缴费记录","X","=",-1) And DeleteCol("未缴费记录","X") And CopyRows("预缴费历史数据") And RecalcGrid("预缴费历史数据") and cleargrid("预缴费批处理") And MsgBox("操作完毕!",0)
)

AddCol("未缴费记录","X",3,False) And EvalFor("未缴费记录","X","[用户信息!预缴费余额]<=[话费合计]") And if(FindRow("未缴费记录","X","=",-1)=0,MsgBox("没有需要处理的数据!",0)And DeleteCol("未缴费记录","X"),EvalFor("未缴费记录","X","[用户信息!预缴费余额]>[话费合计]") And AppendRows("未缴费记录","X","=",-1) And EvalFor(Grid,"上次余额","if(text([处理日期])="""",FindText(""用户信息"",""预缴费余额"",""电话号码"",""="",[电话号码]),[上次余额])") And EvalFor(Grid,"处理日期","if(text([处理日期])="""",today(),[处理日期])") And EvalFor(Grid,"操作员","if([操作员]="""",username,[操作员])") And DelFor(Grid,"电话号码","=","") And RecalcCol("本次余额") And EvalFor("用户信息","处理日期","if(text([处理日期])="""",[预缴费批处理!处理日期],if(Number([处理日期])<Number(FindText(""预缴费批处理"",""处理日期"",""电话号码"",""="",[电话号码],-1)),FindText(""预缴费批处理"",""处理日期"",""电话号码"",""="",[电话号码],-1),[处理日期]))")And EvalFor("用户信息","预缴费余额","if(text([处理日期])="""",[预缴费余额],if(Number([处理日期])<=Number(FindText(""预缴费批处理"",""处理日期"",""电话号码"",""="",[电话号码],-1)),FindText(""预缴费批处理"",""本次余额"",""电话号码"",""="",[电话号码],-1),[预缴费余额]))") And DelFor("未缴费记录","X","=",-1) And DeleteCol("未缴费记录","X") And CopyRows("预缴费历史数据") And RecalcGrid("预缴费历史数据") and cleargrid("预缴费批处理") And MsgBox("操作完毕!",0))

呵呵，咱有事外出刚回，楼主先测试一下楼上的文件是否已满足要求了。

我只能按你的要求去做，因为你这个程序改哪里都是牵一发动全身的，改公式的同时还要充分考虑到其它表的引用问题，否则永远是折东墙补西墙，所以我很晕~~

24楼第一段，是不是已经达到要求了？

第二段要求可以把整个公式改成这样；

AddCol("未缴费记录","X",3,False) And EvalFor("未缴费记录","X","[用户信息!RelationRow]>-1 And [用户信息!预缴费余额]<=[话费合计]") And if(FindRow("未缴费记录","X","=",-1)=0,MsgBox("没有需要处理的数据!",0)And DeleteCol("未缴费记录","X"),EvalFor("未缴费记录","X","[用户信息!预缴费余额]>[话费合计]") And AppendRows("未缴费记录","X","=",-1) And EvalFor(Grid,"上次余额","if(text([处理日期])="""",FindText(""用户信息"",""预缴费余额"",""电话号码"",""="",[电话号码]),[上次余额])") And EvalFor(Grid,"处理日期","if(text([处理日期])="""",today(),[处理日期])") And EvalFor(Grid,"操作员","if([操作员]="""",username,[操作员])") And DelFor(Grid,"电话号码","=","") And RecalcCol("本次余额") And EvalFor("用户信息","处理日期","if(text([处理日期])="""",[预缴费批处理!处理日期],if(Number([处理日期])<Number(FindText(""预缴费批处理"",""处理日期"",""电话号码"",""="",[电话号码],-1)),FindText(""预缴费批处理"",""处理日期"",""电话号码"",""="",[电话号码],-1),[处理日期]))")And EvalFor("用户信息","预缴费余额","if(text([处理日期])="""",[预缴费余额],if(Number([处理日期])<=Number(FindText(""预缴费批处理"",""处理日期"",""电话号码"",""="",[电话号码],-1)),FindText(""预缴费批处理"",""本次余额"",""电话号码"",""="",[电话号码],-1),[预缴费余额]))") And DelFor("未缴费记录","X","=",-1) And DeleteCol("未缴费记录","X") And CopyRows("预缴费历史数据") And RecalcGrid("预缴费历史数据") and cleargrid("预缴费批处理") And MsgBox("操作完毕!",0))

有两笔数据还不知道你想怎么处理，别人也就不知道什么是对什么是错了。

-=-=-=- 以下内容由 czy 在 2006年12月04日 08:58pm 时添加 -=-=-=-
做你这个东东太累，关系太复杂，你还是自己理清思路，仔细测试，发现错误再提出来。

这是你1楼的要求，“[用户信息!预缴费余额]<=[话费合计]”，这句代码是按你要示求做的，真不知道错在哪里。