Grid控件无法刷新问题求助：附表单初始化及按钮代码

先梳理你的代码里存在的几个关键问题，这些问题直接导致Grid无法正常刷新：

1. 临时表数据未同步 #

你的Grid绑定的是supplier_temp临时表，但在处理/拒绝按钮中，仅更新了物理表supplier的control字段，没有同步更新supplier_temp对应记录的状态，而Grid显示的是临时表的数据，自然看不到变化。

2. 单条记录更新逻辑错误 #

按钮中的replace supplier_temp.control with 2是在go top后执行，只会修改临时表的第一条记录，而非你选中的目标记录。应该先定位到选中的记录再执行替换，或者根据ID匹配更新。

3. 初始化代码的语法与字段错误 #

• 初始化代码开头有重复的if !used，属于语法错误，会导致代码逻辑异常
• 存在字段绑定错误，比如Thisform.Proveedores.column3.ControlSource = "provider_temp.cellphon"，这里应该对应supplier_temp.cellphon（因为Grid基于supplier_temp）
• 循环更新provider表的逻辑冗余且低效，没必要逐条遍历临时表再执行scan

修复方案 #

步骤1：修正初始化代码的语法与绑定错误 #

* 修正重复的used判断
IF !USED("supplier_temp")
    SELECT supplier
    AFIELDS(structure)
    CREATE CURSOR supplier_temp FROM ARRAY structure
ELSE
    SELECT supplier_temp
    * 简化provider表更新逻辑，替换低效的循环+scan
    UPDATE provider 
    SET name = supplier_temp.name, 
        address = supplier_temp.dir, 
        cell = supplier_temp.cellphon, 
        email = supplier_temp.email 
    FROM supplier_temp 
    WHERE provider.control = 1 AND provider.id = supplier_temp.id
    
    DELETE ALL
ENDIF

SELECT supplier_temp
ZAP  // 用ZAP清空比DELETE ALL更高效
APPEND FROM supplier FOR dispatched = 1
GO TOP

* 统一Grid绑定，修正字段名错误
Thisform.Suppliers.RecordSource = "supplier_temp"
Thisform.Suppliers.column1.ControlSource = "supplier_temp.name"
Thisform.Suppliers.column2.ControlSource = "supplier_temp.direntre"
Thisform.Suppliers.column3.ControlSource = "supplier_temp.cellphon"
Thisform.Suppliers.column4.ControlSource = "supplier_temp.email"
Thisform.Suppliers.Refresh()

步骤2：修正处理按钮的逻辑 #

确保更新supplier的同时，同步更新supplier_temp的对应记录，并且只更新选中的记录：

IF Thisform.Suppliers.Column1.Check2.Value = 1
    Thisform.Suppliers.column1.Check2.Valid()
    
    * 定位到Grid当前选中的记录
    SELECT supplier_temp
    * 更新当前记录的control字段
    REPLACE supplier_temp.control WITH 2
    * 获取当前记录ID，同步更新物理表
    LOCAL lnId
    lnId = supplier_temp.id
    REPLACE supplier.control WITH 2 IN supplier WHERE supplier.id = lnId
    
    * 强制刷新Grid：先清空再重新绑定数据源，确保UI更新
    Thisform.Suppliers.RecordSource = ""
    Thisform.Suppliers.RecordSource = "supplier_temp"
    Thisform.Suppliers.Refresh()
    Thisform.Suppliers.SetFocus()
ENDIF

步骤3：修正拒绝按钮的逻辑 #

同理，同步更新临时表与物理表：

IF Thisform.Suppliers.Column1.Check2.Value = 1
    IF !EMPTY(supplier_temp.obs)
        Thisform.Suppliers.column1.Check2.Valid()
        
        SELECT supplier_temp
        REPLACE supplier_temp.control WITH 3
        LOCAL lnId
        lnId = supplier_temp.id
        REPLACE supplier.control WITH 3 IN supplier WHERE supplier.id = lnId
        
        * 强制刷新Grid
        Thisform.Suppliers.RecordSource = ""
        Thisform.Suppliers.RecordSource = "supplier_temp"
        Thisform.Suppliers.Refresh()
        Thisform.Suppliers.SetFocus()
    ENDIF
ENDIF

关键注意事项 #

• Grid的刷新依赖于其绑定数据源的变化，仅调用Refresh()有时不足以触发更新，先清空RecordSource再重新绑定是FoxPro中强制Grid刷新的常用技巧。
• 确保所有数据操作都同步到Grid绑定的数据源（这里是supplier_temp），而非仅更新物理表。
• 避免冗余的循环逻辑，使用SQL语句替代逐条遍历，提升效率同时减少错误。

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