请各位大佬帮忙看下，如果要显示点击右边目录树的值，比如任何一个人，，右边的文本框就显示相应的数值，右下角的表格也自动定位到那一个人的记录，并用红色背景标注。。研究了一个月搞不懂，，请问这个咋搞？

研究一下thisform.olecontrol1.nodeclick事件吧，只要获取到一二级的名称，到grid1里找到对应记录并定位
至于上面的文本框，可以在grid1的AfterRowColChange事件里写就行

多谢大师指点,我再研究研究

nodeclick事件里面来个set filter to where 姓名=?, 然后再来个refresh应该就可以搞定了。

node加载 通常都要使用  Key 和 Tag，NodeClick时，获取对应节点的 Key，而这个Key就是表记录的唯一值，然后到对应表中去找(定位记录).
右边的表格 和文本框 的数据源应该都是同一个表，表格的AfterRowColChange 写 thisform.refersh即可。

表格当前行高亮显示，可以设置表格的属性：HighlightStyle  和  HighlightForeColor

现在还有新手学习VFP，真的很少见了！

[此贴子已经被作者于2022-3-7 09:08编辑过]

tree的nodeclick事件里面写上下面程序行就可以了：
SELECT gzrs
LOCATE FOR ALLTRIM(gzrs.姓名)==ALLTRIM(Node.text)
IF FOUND()
thisform.text1.Value=gzrs.卡号
thisform.text2.Value=gzrs.姓名
thisform.text3.Value=gzrs.部门
thisform.text4.Value=gzrs.报到日期
thisform.text5.Value=gzrs.住址
ENDIF
thisform.grid1.Refresh

40岁大叔,学的是情怀,,,以前看别人用VFP写的软件,感觉很牛B,现在有点时间,就兴趣学学.嘿嘿
非常感谢指点!

感谢,后来用6楼的大师代码可以了

大师好!
按您提供的代码,确实可以显示左右联动,,,不过就是点击左边边的值(人名),右边表不能自动高亮..要点击右边表里面的值,这行才能高亮显示.不知是为啥?

*** ActiveX 控件事件 ***
LPARAMETERS node
XM=ALLTRIM(Node.text)
SELECT gzrs
LOCATE FOR ALLTRIM(gzrs.姓名)==ALLTRIM(Node.text)
IF FOUND()
    thisform.text1.Value=gzrs.卡号
    thisform.text2.Value=gzrs.姓名
    thisform.text3.Value=gzrs.部门
    thisform.text4.Value=gzrs.报到日期
    thisform.text5.Value=gzrs.住址
ENDIF



Thisform.grid1.SetAll('DynamicForeColor','IIF(姓名="&XM",RGb(255,0,0),rgb(0,0,0))','column')
Thisform.grid1.SetAll('DynamicbackColor','iif(姓名="&xm",RGb(255,255,0),rgb(255,255,255))','column')
Thisform.Grid1.Refresh

OK 啦,,,可以实现点击左边的树,右边变颜色