使用递归法.
函数如下(有些地方使用了自定义函数,自己用的时候可以修改一下):
'/树操作基本参数列表.
Type BaseParameter
Cnn As ADODB.Connection 'ADODB 连接
TrvName As Object '树名称.
TabName As String '树对应的数据表名
ParFld As String '数据表中父节点的字段名.
ChildFld As String '数据表中子节点的字段名.
TextFld As String '数据表中节点文本名称的字段名.
RootIco As String '树中根目录的图标号.
Parico As String '树中父节点的图标号.
ExpParIco As String '树中展表一个节点时的图标号.
ChildIco As String '树中子节点的图标号.
RootText As String '树中根节点的文件.
End Type
Dim TrvBasePar As BaseParameter
'
'单表填充TREEVIEW
'函数:FillTreeView
'参数:SelectSql 一条没有WHERE条件表达式的SELECT语句.
'返回值:
'说明:SELECT语句中必须包括三项:父节点的字段名,子节点的字段名.节点的标签字段名
' 所有节点的KEY值是:G + 节点的ID号.Text值是:节点的标签名.
Public Function FillTreeView(SelectSql As String)
If TrvBasePar.TrvName Is Nothing Then
Exit Function
End If
Call FillTree("", "", SelectSql)
End Function