find_str=Thisform.Text1.Value
IF EMPTY(find_str) &&没有输入字符
RETURN
ENDIF
select nr FROM poem
where=ATC(ALLTRIM(find_str),nr)
where=RAT(ALLTRIM(UPPER(find_str)),UPPER(nr))
where=AT(ALLTRIM(find_str),nr)
where=RAT(ALLTRIM(find_str),nr)
DO while FOUND()&&找到了
MODIFY MEMO nr NOWAIT NOEDIT RANGE where,where+LEN(ALLTRIM(find_str))
IF MESSAGEBOX("已经找到，是否需要找下一个?",4+32,"搜索")=7
EXIT
ELSE &&没找到
=MESSAGEBOX("数据未找到",16,"搜索")
EXIT
ENDIF
ENDDO


其中poem为表，nr为poem中的一个备注字段。这样子还不行？到底错在哪？