📄 1947.html

📁 VB技巧问答10000例 VB技巧问答10000例
💻 HTML
字号:
<html>  <head>    <title>TreeView的问题</title>  </head>  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">    <center>      <h1>TreeView的问题</h1>    </center><HR><p>Posted by <a href="mailto:lchen@geocities.com">巨蟹座女子</a> on February 15, 1998 at 22:19:21:<p> 在根目录下有六层（r, Axx, Bxx,Cxx, Dxx, Exx, Fxx). <br> 在Form Load 把Database资料读进来时, 出现错误(找不到元素). <br> 请问是哪里出了错?<br> <br>     Set rsDir = myDB.OpenRecordset("目录名称", dbOpenDynaset)<br>     <br>     Set nodX = TreeView1.Nodes.Add(, , "r", "\")<br>     nodX.Image = "open"<br>     <br>     rsDirectory.MoveFirst<br>     <br> '<br>     Do Until rsDir.EOF<br>         If rsDir!ParentID = "r" Then<br>             Set nodX = TreeView1.Nodes.Add("r", tvwChild,<br>                      rsDir!ChildID, rsDir!Child, 1)<br>         End If<br>         rsDir.MoveNext<br>     Loop<br> <br> '<br>     rsDir.MoveFirst<br>     Do Until rsDir.EOF<br>         If rsDir!ParentID  "r" Then<br>             Set nodX = TreeView1.Nodes.Add(CStr(rsDir!ParentID),<br>                  tvwChild,rsDir!ChildID, rsDir!Child, 1)<br>         End If<br>         rsDir.MoveNext<br>     Loop<br> <br> 另外有一个问题：读进来的资料, 不是以Ascending 的方式呈现.<br> 假设有一资料库如下, Data转成TreeView后, 不会依A to Z的顺序<br> 排列. 请问要如何Sorting 呢?<br> <br>         ---------------------------------------------------------------<br>         |    ParentID   |    Parent     |    ChildID    |    Child      |<br>         -----------------------------------------------------------------<br>         |       r       |       r       |       A01     |       JPSD    |<br>         |       r       |       r       |       A02     |       TDWO    |<br>         |       r       |       r       |       A03     |       CSME    |<br>         |       A02     |       CSME    |       B01     |       TX96    |<br>         |       A02     |       CSME    |       B02     |       TX58    |<br>         |       A01     |       JPSD    |       B03     |       NSX1    |<br>         |       B01     |       TX96    |       C01     |       GHLX    |<br>         |       B02     |       TX58    |       C02     |       LKTF    |<br>         |       A02     |       CSME    |       B04     |       AQTS    |<br>         |       r       |       r       |       A04     |       BTDS    |<br>         -----------------------------------------------------------------<br> <br>         \(Root)<br>         |       <br>         |---- JPSD<br>         |       |<br>         |       ----- NSX1              <br>         |       <br>         |---- TDWO<br>         |       |<br>         |       ----- TX96 <br>         |       |       |<br>         |       |       ----- GHLX      <br>         |       |<br>         |       ----- TX58 <br>         |               |<br>         |               ----- LKTF<br>         |<br>         |---- CSME<br>         |       |<br>         |       ----- AQTS<br>         |<br>         ----- BTDS<br> <br> <br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1947--><!--top: 1963--><li><a href="1963.html"><b>Re: TreeView的问题</b></a> 小吴 <i>17:13:43 2/16/98</i>(<!--responses: 1963-->1)<ul><!--insert: 1963--><!--top: 1968--><li><a href="1968.html"><b>不太懂ㄝ</b></a> 巨蟹座女子 <i>19:44:17 2/16/98</i>(<!--responses: 1968-->0)<ul><!--insert: 1968--></ul><!--end: 1968--></ul><!--end: 1963--></ul><!--end: 1947--><br><HR><p></body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -