[这个贴子最后由Czy在 2010/09/07 10:42pm 第 1 次编辑]
红色字体加删除线的公式严重嵌套。
红色字体公式严格来讲也存在嵌套。
解决方法见帮助中“函数嵌套问题”章节的“2、使用表达式变量”
if(msgbox("导入前请确认已对EXCEL文件进行了必要处理!",2)= True ,
if(msgbox("本功能只导入数据库中没有的记录,确定吗？",2)= True ,
OpenGrid("追加") And
delfor(GridName) And
[s]SetVariable("%文件名%",GetFileName("Excel文件|*.xls","从EXCEL文件中导入发证数据" ,0))[/s] And
ImportDBFile([%文件名%],6, Substitute(Split([%文件名%],"\",[%\号数%]),".xls","")) And
DelFor(GridName,"林权申请号", "=","") And
RecalcCol("追加","对比") And
DelFor("追加","对比", "=" , -1) And
Copyrows("已发证") And
OpenGrid("已发证") And
SetVariable("%文件名%",Substitute(Split([%文件名%],"\",[%\号数%]),".xls","")) And
RecalcColfor("已发证","座落","追加批次", "=" ,"") And
RecalcColfor("已发证",34,"追加批次", "=" ,"") And
RecalcColfor("已发证",35,"追加批次", "=" ,"") And
RecalcColfor("已发证",36,"追加批次", "=" ,"") And
RecalcColfor("已发证",37,"追加批次", "=" ,"") And
RecalcColfor("已发证",38,"追加批次", "=" ,""),""),"") And
Setvariable("%批次%",maxfor("已发证","追加批次")+1) And
ReplaceFor("已发证","追加文件名",[%文件名%],"追加批次", "=" ,"") And
ReplaceFor("已发证","追加批次",[%批次%],"追加批次", "=" ,"") And
MsgBox("本次追加"+Text([追加!Rows])+"条记录!",1,4)
加好友 
发短信
Post By：2010/9/7 22:32:00 [显示全部帖子]
Post By：2010/9/7 22:39:00 [显示全部帖子]
Post By：2010/9/7 22:40:00 [显示全部帖子]
Post By：2010/9/7 23:02:00 [显示全部帖子]
