THISFORM.TextDM.INTERACTIVECHANGE  中的代码如下：

CS=ALLTRIM(THISFORM.TextDM.VALUE)
SELECT 项目名称,代码 FROM DATA\DJ.DBF WHERE CS$ALLTRIM(代码) INTO DBF TEMP\TEMDJ.DBF
SELECT TEMDJ
IF RECCOUNT()>0
    THISFORM.GridDJ.COLUMNCOUNT=1
    THISFORM.GridDJ.RECORDSOURCE='TEMDJ'
    THISFORM.GridDJ.COLUMN1.HEADER1.CAPTION='项目名称'
    THISFORM.GridDJ.COLUMN1.CONTROLSOURCE='项目名称'
    THISFORM.GridDJ.COLUMN1.WIDTH=100
    THISFORM.GridDJ.VISIBLE =.T.
ELSE
    THISFORM.GridDJ.VISIBLE =.F.
ENDIF

问题1：在GridDJ中，当使用方向键选中需要的行后，或者鼠标直接点击需求行后，实现：
    THISFORM.TextXM.VALUE=项目名称
    THISFORM.GridDJ.VISIBLE =.F.
    该怎样操作?

问题2：有什么其他更好的办法实现我的需求？

谢谢！

收到，谢谢！学习了，我要仔细研究一下你的代码。