修改一：在打印入库命令中，我本来加入了一个备份数据到本地的命令，没想到在7月份的一次修改中被改掉了，所以数据已经无处可找，胸闷。
if([%model%] = "",msgbox("没有选择记录模板,无法打印预览!",1,3),if(CanWrite([%datapool%]) = False,msgbox("有其他用户正在存盘,请稍候!",1,3),if( = - 1 And [入库] = - 1,copyfile([%CHDDPpath%] + "models\" + [%model%],docdir + "models/" + [%model%]) And PrintDoc("models\" + [%model%],0),if( = - 1 And [入库] = 0,SetCellText(gridname,row,"入库","-1") And OpenModalWindow(13) And Export([%datapool%],"数据库","888","数据库","ID", "=",) And Export([%datapool%],gridname,"888",gridname,"ID", " = " ,) And copyfile([%CHDDPpath%] + "models\" + [%model%],docdir + "models/" + [%model%]) ,MsgBox("您没有获取入库路径,不能进行打印!" + Char(13) + Char(13) + "获取路径后系统将为您自动设置保存路径和文件名!",1,3)))))
修改为：
if([%model%] = "",msgbox("没有选择记录模板,无法打印预览!",1,3),if(CanWrite([%datapool%]) = False,msgbox("有其他用户正在存盘,请稍候!",1,3),if( = - 1 And [入库] = - 1,copyfile([%CHDDPpath%] + "models\" + [%model%],docdir + "models/" + [%model%]) And PrintDoc("models\" + [%model%],0),if( = - 1 And [入库] = 0,SetCellText(gridname,row,"入库","-1") And OpenModalWindow(13) And Export([%datapool%],"数据库","888","数据库","ID", "=",) And Export([%datapool%],gridname,"888",gridname,"ID", " = " ,) And Export(docdir+"BAK/data0001.egd","数据库","888","数据库","ID", "=",) And Export(docdir+"BAK/data0001.egd",gridname,"888",gridname,"ID", " = " ,) And copyfile([%CHDDPpath%] + "models\" + [%model%],docdir + "models/" + [%model%]) ,MsgBox("您没有获取入库路径,不能进行打印!" + Char(13) + Char(13) + "获取路径后系统将为您自动设置保存路径和文件名!",1,3)))))
修改二：客户端文件也进行了小改动：
CopyFile("\\CHDDP7\CHDDP$\splash.jpg",docdir+"splash.jpg") And if(exist(docdir+"BAK/data0001.egd") = False ,copyfile("\\CHDDP7\CHDDP$\data0001.egd",docdir + "BAK/" + "data0001.egd"),"") And OpenMenu("menu") And HideMainWindow()
加入红色代码，这样客户端可以自动升级，今后备份数据就保存到
docdir+"BAK/data0001.egd"中去。
修改三：删除了datapool中所有的计划任务、变量、列默认公式、刷新公式等等，形成一个光表；如果这种问题还存在的话，我决定把datapool重做了。