On Error Do errordo With Error(), Message(), Message(1), Program(), Lineno()

Procedure errordo
Parameter merror, Mess, mess1, mprog, mlineno
Messagebox('错误号: '+Ltrim(Str(merror))+Chr(13)+'错误信息: '+Mess+Chr(13)+'错误代码: '+mess1+Chr(13)+'错误行号: '+Ltrim(Str(mlineno))+Chr(13)+'发生错误的程序名: '+mprog,0,'错误提示...')
Quit
Endproc


这是一段发生错误时，触发的提示框，mess1 显示的根本不是错误行的代码，请问怎么改？

我查了vfp8的帮助文件，message（1）说的就是代码行，实际的结果返回的根本不是那行代码，不过行号倒是正确的，所以也不太影响排查，只是显示发生错误的“代码内容”不正确

我的那句命令是包含宏替换的，但也没返回这个程序行啊，按照以前的经验，大多数都是返回一句“select xxx”，跟发生问题的行一点关系都没有