我安装了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编辑过]