连编出错：超出允许的Do嵌套层次

[YUAN168]

错误信息：allow do nesting or expression evaluation level exceeded.

但是程式执行没问题

----主 PROGRAM

*!* 设置运行环境
SET TALK OFF &&关闭命令显示
SET ESCAPE OFF &&禁止ESC中断运行的程式
SET EXCLUSIVE OFF &&数据库表以共享方式打开
SET SAFETY OFF &&更改已有的文件不显示对话框
SET DATE ANSI &&设定年份为 4码
SET CENTURY ON &&指定日期格式： YY.MM.DD
SET MARK TO [-] &&指定日期的分隔符为"-"
SET SECONDS ON &&日期时间表达式的显示秒钟部分
SET DELETED ON
SET EXACT ON &&精确比较
SET RESOURCE OFF
CLEAR
CLEAR ALL

SET PATH TO
SET PATH TO FORMS,CLASSES,PROGRAMS,PICTURES,API,OTHERS
SET CLASSLIB TO
SET CLASSLIB TO classlibrary,controllibrary,formlibrary,_gdiplus
SET LIBRARY TO MyFll.fll
SET PROCEDURE TO Err.prg,QUITALL.PRG,PUBLICMETHOD.PRG,mygridcolumn.prg

_SCREEN.AddProperty("dbServerName")
_screen.AddProperty("dbUserID")
_screen.AddProperty("dbUserPwd")
_screen.AddProperty("dbDataBaseName")
_screen.AddProperty("oMainForm")

ON ERROR do err with ERROR(),MESSAGE(),MESSAGE(1),PROGRAM(),LINENO(1)

DO FORM FRM_LOGIN

READ EVENTS

[都市夜猫]

这段代码看不出问题，也许在其他地方 或者把 err.prg 改个名字试试