thisform.grid1.Column1.AddObject("tity",   "ComboBox")
thisform.grid1.Column1.CurrentControl   =   "tity"
thisform.grid1.Column1.tity.interactivechange=      这个不用BINDEVENT(）的话，要如何写事件代码？

面象对象无解

自己封装一个ComboBox
如：
****** test.prg ******
_screen.AddObject("tity", "myComboBox")
RETURN

DEFINE CLASS myComboBox as ComboBox
    Visible = .T.
    RowSourceType = 1
    RowSource = "1,2,3,4,5"
    PROCEDURE interactivechange
        MESSAGEBOX("myComboBox.interactivechange")
    ENDPROC
ENDDEFINE

完美