DEFINE CLASS _text as text   没有见到自定义的 text 类，应该是想引用VFP的 TextBox 类吧？
你没改这里吧？

是的，问题找到了，就是吹水佬师傅说的，不仔细看还真没有看出来，TONGDENG师傅，每一种方法都要学啊，都会了才能比较啊，感谢2位师傅的指教

又遇到问题了，怎么引用GRID的COLUMN1.TEXT1的事件呢
程序1.prg
DEFINE CLASS _grid as grid
    width=200
    top = 10
    left=10
    visible = .t.
    columncount=3
   
    PROCEDURE column1.text1.click   &&这句话通不过
       =MESSAGEBOX("你好")
    endpro
ENDDEFINE

SET PROCEDURE TO E:\测试\程序1
thisform.AddObject("grid1", "_grid")

1、用 BINDEVENT() 绑定自定义方法。
2、自定义类：

** test.prg
CREATE CURSOR tt (f1 I, f2 I)
INSERT INTO tt VALUES (101, 202)
of = CREATEOBJECT("form1")
of.show(1)
CLEAR ALL 

DEFINE CLASS form1 as Form
    ADD OBJECT grid1 as _Grid
ENDDEFINE

DEFINE CLASS _Grid as grid
    Visible = .t.
    ADD OBJECT Column1 as _Column
    ADD OBJECT Column2 as _Column
ENDDEFINE

DEFINE CLASS _Column as Column
    Visible = .t.
    ADD OBJECT Text1 as _TextBox
ENDDEFINE

DEFINE CLASS _TextBox as TextBox
    Visible = .t.
    PROCEDURE Click
        MESSAGEBOX(this.Parent.Name + "." + this.Name + ".Click")
    ENDPROC
ENDDEFINE

谢谢