FoxPro中基于Prod_Master表循环查询Item_Master表数据的实现需求

完整实现代码 #

* 选择未使用的工作区打开Prod_Master表
SELECT 0
USE Prod_Master
* 选择另一个未使用的工作区打开Item_Master表
SELECT 0
USE Item_Master
* 切换回Prod_Master所在的工作区
SELECT Prod_Master
* 遍历Prod_Master的每一条记录
SCAN
    * 将当前记录的Item值存入内存变量
    m.lcItem = Item
    * 切换到Item_Master工作区
    SELECT Item_Master
    * 定位到匹配的记录
    LOCATE FOR Item = m.lcItem
    * 如果找到匹配记录，打开浏览窗口显示该记录
    IF FOUND()
        BROWSE FOR Item = m.lcItem NOWAIT TITLE "匹配的Item记录: " + TRANSFORM(m.lcItem)
    ELSE
        MESSAGEBOX("未找到Item: " + TRANSFORM(m.lcItem) + " 的匹配记录", 0+64, "提示")
    ENDIF
    * 切回Prod_Master工作区继续循环
    SELECT Prod_Master
ENDSCAN
* 关闭所有表（可选，根据实际需求）
CLOSE ALL

关键说明 #

• 工作区管理：使用SELECT 0自动选择未被占用的工作区，避免直接关闭已打开的表，确保两张表同时处于打开状态。
• 循环遍历：SCAN...ENDSCAN是VFP中遍历表记录的高效方式，自动处理记录指针移动，无需手动控制SKIP和EOF()判断。
• 变量传递：用内存变量m.lcItem存储当前Item值，避免工作区切换后字段引用混淆。
• 浏览控制：NOWAIT参数让浏览窗口打开后不阻塞程序继续执行，TITLE参数添加窗口标题方便识别当前匹配的Item值；无匹配记录时弹出提示框告知用户。
• 替代循环方式：若习惯用DO WHILE结构，可替换为以下代码段：

SELECT Prod_Master
GO TOP
DO WHILE NOT EOF()
    m.lcItem = Item
    SELECT Item_Master
    LOCATE FOR Item = m.lcItem
    * 后续浏览/提示逻辑同SCAN版本
    SELECT Prod_Master
    SKIP
ENDDO

内容的提问来源于stack exchange，提问作者Mohammad Mohiuddin