如何实现带树形结构的组合框和列表框

会计考友

如何实现带树形结构的组合框和列表框
问题详述
　　在对产品或客户进行分类时，类别需要多层分类结构，也就是常见的树形结构，但access的组合框和列表框都不支持树形结构，只能通过Treeview这个ActiveX控件来实现，不知有没有方法能够在组合框和列表框中实现树形结构呢？
　　专家解答
) ]# M! f8 Q+ Z# `+ I8 f2 [　　组合框和列表框的行来源属性可为表或查询，由于组合框和列表框本身的限制，无法直接实现树形结构，所以只能在行来源属性上想办法。创建一个查询，然后通过函数来将数据的内容转换成树形结构的格式，由于组合框和列表框的数据来源于查询，所以就间接地实现了带树形结构的组合框和列表框。
　　首先创建一个通用函数，用来实现树形结构的查询结果，详细代码如下。
　　Public Function GetNodeText(rlngDepth As Long, rlngNextId As Long, rstrClassName As String) As String
　　Dim sqlClass As String
　　Dim strTemp As String
' D/ a& i6 V, ], g　　Dim tmpDepth As Integer
　　Dim i As Integer
. j! I  @2 @+ n& u4 {% k+ D　　Dim arrShowLine(20) As Boolean
* P  h+ j, u) `　　For i = 0 To UBound(arrShowLine)
　　arrShowLine(i) = False
& z% \' m) s) j! @9 j　　Next
　　tmpDepth = rlngDepth
　　If rlngNextId > 0 Then
; K  s! X+ T- {6 O( C- [- g4 ?' r　　arrShowLine(tmpDepth) = True
$ ^9 Q7 {6 y% j5 C- o2 y　　Else
　　arrShowLine(tmpDepth) = False
　　End If
　　strTemp = ""
9 ]6 f2 q9 f  {　　If tmpDepth = 2 Then
　　End If
& z0 m" n/ Z% l/ n8 t　　If tmpDepth > 0 Then
　　For i = 1 To tmpDepth
1 Q: N* ?: r% }  V, t　　strTemp = strTemp & " "
/ ^8 n: j- j; W0 d, W9 t3 u　　If i = tmpDepth Then
0 T, \+ t1 `0 Y6 |3 o　　If rlngNextId > 0 Then
# Q1 T) i- A: u0 f6 v( K　　strTemp = strTemp & "├ "
　　Else
　　strTemp = strTemp & "└ "
4 n* j  ]7 U5 b) ~# p　　End If
　　Else
$ o, x" q3 U% V6 z$ u& p　　If i = 1 Then
3 d. C, g/ X' |3 I7 f0 j　　strTemp = strTemp & "│"
　　Else
　　strTemp = strTemp & " "
2 q+ H; f! {4 L0 t0 G' t5 z　　End If
2 O' T' T" `6 T) Q% M* c6 |　　End If
. l7 I4 H' d% f　　Next
+ x6 a9 o( q, S! U1 n' v+ X　　End If
1 J/ T6 ?4 w8 ~" g- p　　GetNodeText = strTemp & rstrClassName
4 I, g* e/ U: z　　End Function
( @, S( C( k- {$ b　　然后创建一个查询，查询中使用了上面这个自定义函数进行数据格式转换，查询的语法如下。
　　SELECT GetNodeText([depth],[NextId],[classname]) AS NodeText, *
0 b- o6 O0 v: U9 i8 G4 \　　FROM SoftClass
5 ~9 s) O! T& q2 p- k# ?/ O$ v8 P　　ORDER BY SoftClass.RootID, SoftClass.OrderID;
　　最后创建一个新的窗体，在窗体上放置一个组合框及列表框，它们的行来源都设置如下。
　　SELECT qryClass.NodeText, qryClass.ClassID FROM qryClass;
　　打开窗体到“窗体视图”状态，可看到带树形结构的组合框和列表框的效果。
　　专家点评
　　这个例子从查询上实现了树形结构，但在组合框和列表框的实现上还并不完全具备Treeview的所有属性，如双击结点进行展开和收缩、结点图标等。如果要实现展开和收缩功能，需要对组合框和列表框再进行编程，判断当前选择的项目是子结点还是父结点，然后相应改变组合框和列表框行来源对应的查询的内容，再刷新组合框和列表框来实现结点的展开和收缩功能。