到现在，莫不是又推倒重来了吧？

现在我有许多应用需求，要用到易表，苦于易表的网络功能和数据连接功能不强而不能实施。

是不是要把我们都推到去学ACCESS或雅奇!

请老六出来说个话，给个信息，让我有个时间预计，可以等还是不需等了!

不过，我也承认，几年来，易表改变了我的生活，确实是这样的。

可是，现在它不能继续这样了!

这个按键的作用是将各种会计软件中的数据变成统一的试算平衡表

我的系统中，这样的按键有20多个：

if(msgbox("不任以前是否已经计算过试算平衡表,现在都将覆盖以前的结果!"+char(13)+"选择是,则继续；"+char(13)+"选择否,则不进行任何操作。",2,4),SetVariable("%进度%",1)and[%进度条%]andClearGrid("试算平衡表")andClearGrid(gridname)andAppendfor("kmk","科目编号","科目编号","科目编号","<>","")andDelRow(gridname,1)andCopyFor("试算平衡表","科目编号","科目编号","科目编号","<>","")andDelRow("试算平衡表",1)andRecalccol("试算平衡表","科目名称","科目类别")andRecalcCol("试算平衡表","科目编码位数","核算科目")andSetVariable("%进度%",3)and[%进度条%]andRecalcCol("试算平衡表","方向")andSetVariable("%进度%",4)and[%进度条%]andRecalcCol("试算平衡表","期初余额")andSetVariable("%进度%",5)and[%进度条%]andRecalcCol("试算平衡表","科目统计")andRecalcCol("试算平衡表","关联")andSetVariable("%进度%",6)and[%进度条%]andEvalFor("试算平衡表","方向","if(left([科目编号],1)=""1"",""借"",if(left([科目编号],1)=""2"",""贷"",if(left([科目编号],1)=""3"",""贷"",if(left([科目编号],1)=""4"",""借"",[方向]))))","方向","=","")andSetVariable("%进度%",7)and[%进度条%]and[%科目统计1%]andSetVariable("%进度%",8)and[%进度条%]andRecalcCol("试算平衡表",9,12)andSetVariable("%进度%",9)and[%进度条%]andRecalcCol("试算平衡表",13,16)andSetVariable("%进度%",10)and[%进度条%]andRecalcCol("试算平衡表",17,20)andSetVariable("%进度%",11)and[%进度条%]andRecalcCol("试算平衡表",21,24)andSetVariable("%进度%",12)and[%进度条%]andRecalcCol("试算平衡表",25,28)andSetVariable("%进度%",14)and[%进度条%]andRecalcCol("试算平衡表",29,32)andSetVariable("%进度%",16)and[%进度条%]andSetVariable("%判断%",0)andRecalcCol("试算平衡表","本年发生额_借方金额","期末余额")andSetVariable("%进度%",18)and[%进度条%]andRecalcCol("试算平衡表","一级科目码","标准科目类型")andRecalcCell("试算平衡表查询",1,"操作")andEvalFor("试算平衡表查询","期初报表项目","findtext(""标准科目"",""报表项目"",""标准会计科目_科目编号"",""="",[标准一级科目码])")andEvalFor("试算平衡表查询","期末报表项目","findtext(""标准科目"",""报表项目"",""标准会计科目_科目编号"",""="",[标准一级科目码])")andRecalcCol("试算平衡表查询","未级科目名称")andRecalcCol("试算平衡表查询","关联",1)andSetVariable("%进度%",20)and[%进度条%]andOpenGrid("项目建立")andOpenMenu("主菜单")andOpenWindow(4)andDockWindow(2),true)

if(msgbox("不任以前是否计算了对应关系,现在都要求进行重算？"+char(13)+"选择是,则重新计算,覆盖原来的计算结果；"+char(13)+"选择否,则不进行任何操作。",2,2),SetVariable("%进度%",1)and[%进度条%]andRecalcCol("pzk","jfje")andSetVariable("%进度%",2)and[%进度条%]andRecalcCol("pzk","dfje")andSetVariable("%进度%",3)and[%进度条%]andRecalcCol("pzk","科目类型")andSetVariable("%进度%",4)and[%进度条%]andRecalcCol("pzk","jfje","dfje",1)andRecalcCol("pzk","凭证格式")andSetVariable("%进度%",5)and[%进度条%]andRecalcCol("pzk","对应科目编号")andSetVariable("%进度%",6)and[%进度条%]andEvalFor("pzk","对应科目编号","FindText(""pzk"",""一级码"",""序号"",""="",[序号],""jfje"",""="",[%最大值对应科目借%])","对应科目编号","=","","jfje","=",0)andSetVariable("%进度%",10)and[%进度条%]andEvalfor("pzk","对应科目编号","FindText(""pzk"",""一级码"",""序号"",""="",[序号],""dfje"",""="",[%最大值对应科目贷%])","对应科目编号","=","","dfje","=",0)andSetVariable("%进度%",14)and[%进度条%]andRecalcCol("pzk","对应科目名称")andSetVariable("%进度%",15)and[%进度条%]andRecalcCol("pzk","对应科目类型")andSetVariable("%进度%",16)andRecalcCol("pzk","标准对应科目码")andSetVariable("%进度%",18)and[%进度条%]andRecalcCol("pzk","标准对应科目名称")andRecalcCol("wlk","对应科目")andEvalFor("wlk","对应科目","FindText(""pzk"",""对应科目名称"",""序号"",""="",[序号],""科目编号"",""="",[科目编号])","对应科目","=","")andRecalcCol("zxhsk","对应科目")andEvalFor("zxhsk","对应科目","FindText(""pzk"",""对应科目名称"",""序号"",""="",[序号],""科目编号"",""="",[科目编号])","对应科目","=","")andSetVariable("%进度%",19)and[%进度条%]andClearGrid("凭证查询")andAppendRows("pzk","序号","<>","")andDelRow("凭证查询",1)andRecalcCol(gridname,"关联")andSetVariable("%进度%",20)and[%进度条%]andOpenGrid("项目建立")andOpenMenu("主菜单")andOpenWindow(4)andDockWindow(2),true)

只是付出了很多，不忍抛弃!!

但，这里面有很多自定义的变量

每个变量里都是一大段函数

算是对易表的众多函数有无BUG全面检查了一次!