我的 grid 控件 数据源直接就是一张本地表，我想在grid 控件上单击的时候不切入单元格，只在双击某个单元格的时候可以切入这个单元格进行修改
目前我 把 grid 控件的 allowcellselecion ,设置了.F. ，beforrowcolchange 也设置了allowcellselecion ,设置了.F.，这两个设置好了以后，基本达到我想要的效果，本来我想在dblcick事件中写 allowcellselecion=.T. 就能实现双击进入单元格 ，但我双击后却没有切入单元格，该怎么做呢

allowcellselecion=.T. 时，单元格就没有双击事件了

那我想实现这个功能该怎么做呢

简单试了一下，有个问题：第一次双击输入不了，再点击其他行或列后双击就可以输入了?

CREATE CURSOR tt (F1 C(10), F2 C(10), F3 I)
INSERT INTO tt VALUES ("ABC", "123456", 101)
INSERT INTO tt VALUES ("DEF", "654321", 202)
INSERT INTO tt VALUES ("GHI", "456123", 303)
GO TOP 
of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 as Form
    ADD OBJECT grid1 as myGrid
ENDDEFINE

DEFINE CLASS myGrid as Grid 
    AllowCellSelection = .f.
    PROCEDURE DblClick
        this.AllowCellSelection = .t.
        this.ReadOnly = .f.
    ENDPROC
    PROCEDURE AfterRowColChange(nColIndex)
        IF this.RowColChange != 0
            this.AllowCellSelection = .f.
        ENDIF  
    ENDPROC 
ENDDEFINE

对，其实我也发现了这个问题，如果我afterrowcolchange 事件中 写 allowcellselecion=.T. ，也是这样 第一次双击输入不了，再点击其他行或列后双击就可以输入，但这不是我想要的效果

afterrowcolchange 事件中 写 allowcellselecion=.T. 发现也基本可以了，但就是第一次双击无效，不知道怎么解决

开打调试器的事件跟踪可以看到，Before/AfterRowColChange事件是在click事件之前触发的，所以第一次会无效

表格的双击事件代码这样试试
PROCEDURE DblClick
    Local oo as TextBox
    Local array aTemp[1]
    this.AllowCellSelection = .T.
    AMouseObj(aTemp)
    oo = aTemp[1]
    oo.SetFocus()
EndProc
上面只是简单的试验一下，没做任何错误判断处理

cell的单击事件设置为nodefault，或者readonly，或者enable=.f.，双击事件后恢复为.t.,lostfocus再设为.f.，应该就可以了。