| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2629 人关注过本帖
标题:TREE 目录树最简单的案例疑问
只看楼主 加入收藏
kangss
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:14
帖 子:275
专家分:604
注 册:2014-6-12
收藏
得分:0 
以下是引用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 啦,,,可以实现点击左边的树,右边变颜色


“LOCATE FOR ALLTRIM(gzrs.姓名)==ALLTRIM(Node.text)”
卡号应该是唯一的,建议用卡号搜索。
遇到姓名重名会麻烦的。
2022-03-08 14:03
ljlhpop
Rank: 2
等 级:论坛游民
帖 子:151
专家分:49
注 册:2015-10-11
收藏
得分:0 
回复 11楼 kangss
主要是姓名再左边的目录树里面,看的比较直白,,,总比卡号好吧,,,不过你说的重复的问题倒是没考虑到
2022-03-08 17:56
mhf8855
Rank: 1
等 级:新手上路
帖 子:24
专家分:4
注 册:2014-6-4
收藏
得分:0 
学习了,谢谢分享
2022-03-10 21:01
kangss
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:14
帖 子:275
专家分:604
注 册:2014-6-12
收藏
得分:0 
以下是引用ljlhpop在2022-3-8 17:56:23的发言:

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


你 tree 中的 Node.text 可以赋值姓名 + 卡号
********************************
针车
 ├─【包改君  】(00172)
********************************
LOCATE FOR ALLTRIM(gzrs.卡号) == ALLTRIM(STREXTRACT(Node.text, [(], [)]))
2022-03-13 19:07
htys
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2022-2-11
收藏
得分:0 
学习了
2022-03-14 20:03
ljlhpop
Rank: 2
等 级:论坛游民
帖 子:151
专家分:49
注 册:2015-10-11
收藏
得分:0 
回复 14楼 kangss
非常感谢!
2022-03-14 21:05
快速回复:TREE 目录树最简单的案例疑问
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034555 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved