点击后修改Grid行类？OnLineActivate事件失效问题求助

问题根源 #

ColumnClass是Grid列的设计时属性，运行时直接修改该属性不会自动触发列的重新初始化，所以你的修改无法生效。而Grid.Load事件是在Grid初始化、列对象创建前执行的，此时设置ColumnClass会被后续创建列时读取，所以能生效。

推荐解决方案（高效实现多选样式） #

不要直接修改ColumnClass，而是结合动态样式属性+记录标记字段来实现，这是VFP中实现行选中样式的标准做法：

1. 给数据源添加标记字段
   给Grid绑定的数据表/临时表添加一个逻辑型字段（比如IsSelected），用来标记该行是否被选中：

   ALTER TABLE 你的数据表名 ADD COLUMN IsSelected LOGICAL DEFAULT .F.
   

2. Grid初始化时设置动态样式
   在Grid.Init事件中，通过SetAll方法设置列的动态背景/前景色，关联标记字段：

   * Grid.Init事件代码
   This.SetAll("DynamicBackColor", "IIF(IsSelected, RGB(204,232,255), RGB(255,255,255))", "Column")
   This.SetAll("DynamicForeColor", "IIF(IsSelected, RGB(0,51,102), RGB(0,0,0))", "Column")
   * 如果需要自定义单元格样式（比如边框、字体），可以扩展动态属性或用自定义控件
   

3. 点击行时切换选中状态
   在Grid.OnLineActivate事件中，切换当前行的标记字段值并刷新Grid：

   Event Grid.OnLineActivate
       * 切换当前记录的选中状态
       REPLACE IsSelected WITH !IsSelected IN 你的数据表名
       * 刷新Grid让动态样式立即生效
       This.Refresh()
   EndEvent
   

若坚持使用自定义列类的方案 #

如果必须通过切换列类来实现样式，需要在修改ColumnClass后手动触发列的重新初始化：

Event Grid.OnLineActivate
    * 先标记当前行的选中状态（用IsSelected字段）
    REPLACE IsSelected WITH !IsSelected IN 你的数据表名

    * 遍历所有列，重新设置列类并初始化
    LOCAL loColumn
    FOR EACH loColumn IN This.Columns
        IF IsSelected
            loColumn.ColumnClass = 'WWColumn WWColumnInfo'
        ELSE
            loColumn.ColumnClass = '你的默认列类名'
        ENDIF
        * 手动调用列的Init方法，让新类的设置生效
        loColumn.Init()
    ENDFOR

    This.Refresh()
EndEvent

补充说明 #

• 修改Class属性仅影响文本样式，是因为Class针对的是列内的文本控件（比如Textbox），而ColumnClass是列本身的类，若要修改单元格整体样式，动态属性的方式比切换列类更轻量、高效。
• 若需要实现多行多选，可以在OnLineActivate中结合Shift/Ctrl键判断，批量修改标记字段值。

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