以下是引用ljlhpop在2022-3-7 20:10:26的发言：

*** 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 啦,,,可以实现点击左边的树,右边变颜色

以下是引用ljlhpop在2022-3-8 17:56:23的发言：

主要是姓名再左边的目录树里面,看的比较直白,,,总比卡号好吧,,,不过你说的重复的问题倒是没考虑到