DBF多字段搜索功能异常求助：点击搜索按钮时部分场景失效

原代码的核心问题 #

• 结果被覆盖：四个IF语句依次执行，不管前三个字段的搜索是否命中，最后只会保留对telefono字段的搜索结果，导致匹配前三个字段的输入无法正常显示对应结果。
• 冗余操作：每次都重复执行SET ORDER TO取消索引、再重新设置对应字段索引，完全是无效重复操作，拖慢执行效率。
• 无反馈机制：没有判断SEEK是否成功，找不到匹配项时，界面会停留在随机记录位置，用户无法知晓搜索结果状态。
• 重复判断：四个IF都重复检查文本框是否为空，代码冗余。

修复方案一：全字段匹配（适合小数据量场景） #

用LOCATE FOR一次性在四个字段中查找匹配值，代码简洁直观：

SELECT clientes2

IF !EMPTY(THISFORM.Text1.Value)
    LOCATE FOR ;
        ALLTRIM(nombre) == ALLTRIM(THISFORM.Text1.Value) OR ;
        ALLTRIM(identifica) == ALLTRIM(THISFORM.Text1.Value) OR ;
        ALLTRIM(direccion) == ALLTRIM(THISFORM.Text1.Value) OR ;
        ALLTRIM(telefono) == ALLTRIM(THISFORM.Text1.Value)
    
    IF FOUND()
        thisform.Refresh
    ELSE
        MESSAGEBOX("未找到匹配的记录", 0, "提示")
        GO TOP  && 无匹配时回到首条记录
        thisform.Refresh
    ENDIF
ENDIF

修复方案二：按顺序索引搜索（适合大数据量场景） #

利用索引SEEK提升搜索速度，按预设顺序搜索四个字段，找到第一个匹配项就停止执行：

SELECT clientes2
LOCAL lcSearchVal
lcSearchVal = ALLTRIM(THISFORM.Text1.Value)

IF !EMPTY(lcSearchVal)
    * 优先搜索姓名字段
    SET ORDER TO nombre
    SEEK lcSearchVal
    IF FOUND()
        thisform.Refresh
        RETURN
    ENDIF
    
    * 搜索标识字段
    SET ORDER TO identifica
    SEEK lcSearchVal
    IF FOUND()
        thisform.Refresh
        RETURN
    ENDIF
    
    * 搜索地址字段
    SET ORDER TO direccion
    SEEK lcSearchVal
    IF FOUND()
        thisform.Refresh
        RETURN
    ENDIF
    
    * 最后搜索电话字段
    SET ORDER TO telefono
    SEEK lcSearchVal
    IF FOUND()
        thisform.Refresh
    ELSE
        MESSAGEBOX("未找到匹配的记录", 0, "提示")
        GO TOP
        thisform.Refresh
    ENDIF
ENDIF

内容的提问来源于stack exchange，提问作者andrey acelas