Import("verify",[%datapool%],"数据库","888","住院号","=",[%住院号%],"手术日期", "=" ,[%手术日期%]) And if(countfor("verify","ID", " " ,"") >= 1,Import("数据库",[%datapool%],"数据库","888","住院号","=",[%住院号%],"手术日期", "=" ,[%手术日期%]) And CloseWindow() And OpenGrid("数据库",1) And move(rows,1) And CloseWindow() And AddRow("ICU","ID",[数据库!ID]) And OpenGrid("ICU") And OpenWindow(1,(screenwidth - 1022) / 2,(screenheight - 766) / 2) And move(rows,1) ,MsgBox(" ----系统提示----" + Char(13)+ Char(13) + "抱歉,系统没有找到此例患者,请核对信息!",1,3))
修改为：
CopyFile([%datapool%],docdir+"temp.egd") And Import("verify",docdir+"temp.egd","数据库","888","住院号","=",[%住院号%],"手术日期", "=" ,[%手术日期%]) And if(countfor("verify","ID", " " ,"") >= 1,Import("数据库",docdir+"temp.egd","数据库","888","住院号","=",[%住院号%],"手术日期", "=" ,[%手术日期%]) And CloseWindow() And OpenGrid("数据库",1) And move(rows,1) And CloseWindow() And AddRow("ICU","ID",[数据库!ID]) And OpenGrid("ICU") And OpenWindow(1,(screenwidth - 1022) / 2,(screenheight - 766) / 2) And move(rows,1) ,MsgBox(" ----系统提示----" + Char(13)+ Char(13) + "抱歉,系统没有找到此例患者,请核对信息!",1,3))
因为查询数据库命令里面频繁用到import命令，这样可能会导致文件损坏。