以下是引用王咸美在2022-5-9 09:29:38的发言:
不太懂,还请赐教!谢谢!!!
我看了你以前的,“个人课表查询”
这个就是删除树,清空
你只要选择一个,就把以前的树,删除,然后,再按照你以前的方法,加载书,就可以了
thisform.olecontrol1.Nodes.clear
SELECT distinct 部门 FROM jsmd20190101 into CURSOR temp
scan
thisform.olecontrol1.Nodes.Add(,,'部门'+ALLTRIM(部门),部门)
SELECT DISTINCT 姓名 FROM jsmd20190101 WHERE jsmd20190101.部门=TEMP.部门 INTO CURSOR TEMP1
SELECT TEMP1
SCAN
THISFORM.OLECONTROL1.Nodes.Add('部门'+ALLTRIM(temp.部门),4,'姓名'+ALLTRIM(temp.部门)+ALLTRIM(姓名),姓名)
ENDSCAN
USE IN TEMP1
SELECT TEMP
ENDSCAN
USE IN TEMP
THISFORM.OLECONTROL1.REFRESH