以下是引用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 啦,,,可以实现点击左边的树,右边变颜色
*** 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 啦,,,可以实现点击左边的树,右边变颜色
“LOCATE FOR ALLTRIM(gzrs.姓名)==ALLTRIM(Node.text)”
卡号应该是唯一的,建议用卡号搜索。
遇到姓名重名会麻烦的。