我安装了VFP,应该有标准的mscomctl.ocx,但同时也下载了mscomctl.ocx文件,放在运行程序的文件夹里面。
										
					
	
	
	
	       程序代码:
程序代码:...
StrToFile('', 'key.txt', 0)
Scan
    If 父对象=0
        oo = This.Nodes.Add(,,'N'+ALLTRIM(STR(键值)),ALLTRIM(名称))
    Else
pkey = 'N'+ALLTRIM(STR(父对象))
        oo = This.Nodes.Add(pkey,4,'N'+ALLTRIM(STR(键值)), ALLTRIM(名称))
    EndIf
StrToFile(oo.key+chr(13), 'key.txt', 1)
    ....
EndScan
[此贴子已经被作者于2022-9-17 12:51编辑过]
