标题:VFP建立三级树目录
取消只看楼主
littlefool1
Rank: 1
等 级:新手上路
帖 子:29
专家分:8
注 册:2018-2-23
结帖率:66.67%
已结贴  问题点数:20 回复次数:1 
VFP建立三级树目录
****建立三个数据表,KM1,KM2,KM3
****VFP9.0完美运行
ThisForm.OleControl1.Nodes.Clear
THIS.LINESTYLE=1
THIS.STYLE=7
This.nodes.add(,1,'KM','会计科目')
Select Distinct 一级名称,一级编号 From d:\tree\km1 Into Cursor Temp1
Scan
  ThisForm.OleControl1.Nodes.Add('KM',4,'YJKM'+Alltrim(一级名称),一级名称)
  Select Distinct 二级名称,二级编号 From d:\tree\km2 Where km2.一级编号==Temp1.一级编号 Into CURSOR Temp2
  Select Temp2
  Scan
   ThisForm.OleControl1.Nodes.Add('YJKM'+Alltrim(Temp1.一级名称) ,4,'EJKM'+Alltrim(二级名称),二级名称)
   Select Distinct 三级名称,三级编号 From d:\tree\km3 Where km3.二级编号==Temp2.二级编号 Into CURSOR Temp3
  Select Temp3
  Scan
   ThisForm.OleControl1.Nodes.Add('EJKM'+Alltrim(Temp2.二级名称) ,4,,三级名称)
  EndScan
   Use In Temp3
   Select Temp2
  EndScan
  Use In Temp2
  Select Temp1
EndScan
Use In Temp1




搜索更多相关主题的帖子: 三级 Select 名称 编号 二级 
2018-02-26 22:22
littlefool1
Rank: 1
等 级:新手上路
帖 子:29
专家分:8
注 册:2018-2-23
得分:0 
回复 2楼 xinjie
新学的,供大家参考
2018-02-26 23:06



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-484876-1-1.html




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

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