请问：在visual interdev中如何使用treeview控件？请给vbscript的代码，谢谢。

cloud_soft 2001-12-25 09:36:51

...全文

109 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

ywz413 2001-12-26

打赏
举报

我数据库里面有两个表格，字段为
id parent_id type name
276 268 0 大修备料
277 1 0 润滑油
279 277 0 1#芳烃
296 277 0 2#芳烃
298 277 0 1#炼油而这里面的id 对应另外一个表格里的id,然后应该让它有相通的parent_id的那些放在同一个根结点处作为相应的子结点，并以parent_id为根结点，该怎样做？

HapTears 2001-12-26

打赏
举报

你看看下面这些就知道了!
index.asp>>>>
<html ><HEAD><TITLE>index</TITLE>
<META NAME="ROBOTS" CONTENT="NOINDEX">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<META NAME="MS.LOCALE" CONTENT="ZH-CN">
</HEAD>
<BODY bgcolor="black">
<div style="font-family:ËÎÌå;font-size:9pt">
'声明一个treeview
<OBJECT id=hhctrl type="application/x-oleobject"
classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"
codebase="../../common/i386.cab#version=4,73,8412,0"
width="262"
height="74%">
<PARAM name="Command" value="Contents">
<PARAM name="flags" value="0x0,0x35,0xFFFFFFFF">
<PARAM name="Item1" value="item.hhc">'载入结点
</OBJECT>
</div>
</BODY>
</HTML>
item.hhc>>>
<HTML>
<HEAD>
</HEAD><BODY>
<OBJECT type="text/site properties">
<param name="FrameName" value="main">
</OBJECT>
<UL>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="开始>
<param name="Local" value="#">
</OBJECT>
<UL>

<LI> <OBJECT type="text/sitemap">
<param name="Name" value="263">
<param name="Local" value="http://www.263.net">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="csdn">
<param name="Local" value="http://www.csdn.net">
</OBJECT>
</UL>

</UL>
</BODY></HTML>

TCat 2001-12-26

打赏
举报

<%@ Language=VBScript %>
<HTML>
<%
set adocon=Server.CreateObject("ADODB.Connection")
adocon.Open "Aspbook"
set sa1=Server.CreateObject("adodb.RecordSet")
SQLstr = "select * from book "
sa1.Open SQLStr,adocon,1,1
%>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>

</SCRIPT>
</HEAD>
<BODY LANGUAGE=javascript onload="return window_onload()">
<script language="vbscript">
sub QueryID_onclick()
TreeView1.Nodes.Clear
<%do while not sa1.eof%>
Set nodX = TreeView1.Nodes.Add()
nodX.Text="<%=sa1.Fields("author").Value%>"
<%sa1.movenext
loop%>
end sub
</script>
<input type="button" id="QueryID" value="导入数据">
<P> </P>
<P>
</P>
<P>
<OBJECT classid=clsid:0713E8A2-850A-101B-AFC0-4210102A8DA7 id=TreeView1
style="HEIGHT: 194px; WIDTH: 218px"
VIEWASTEXT>
<PARAM NAME="_ExtentX" VALUE="5768">
<PARAM NAME="_ExtentY" VALUE="5133">
<PARAM NAME="_Version" VALUE="327682">

<PARAM NAME="HideSelection" VALUE="1">
<PARAM NAME="Indentation" VALUE="1000">
<PARAM NAME="LabelEdit" VALUE="1">
<PARAM NAME="LineStyle" VALUE="1">
<PARAM NAME="PathSeparator" VALUE="\">
<PARAM NAME="Sorted" VALUE="0">
<PARAM NAME="Style" VALUE="7">
<PARAM NAME="ImageList" VALUE="">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="Appearance" VALUE="1">
<PARAM NAME="MousePointer" VALUE="0">
<PARAM NAME="Enabled" VALUE="1">
<PARAM NAME="OLEDragMode" VALUE="0">
<PARAM NAME="OLEDropMode" VALUE="0">
</OBJECT>
</P>

</BODY>
</HTML>

cloud_soft 2001-12-26