TreeView控件功能应用代码.docVIP

Option Explicit 功能；TV控件的综合二层赋值。 示意图： 1: +第一层字符串内容 2: .....第二层字符串内容 入口参数；TreeView1 是要进行数据填充的TV控件 入口参数；Node_1_string 是第一层节点字符串内容 入口参数；SQLstring 是查询语句 Public Function TV_TO_2_Chen(ByRef TreeView1 As TreeView, _ ByVal Node_1_string As String, _ ByVal SqlString As String) As Long On Error GoTo ONERROR Dim node1 As Node Dim node2 As Node Dim Recordset As ADODB.Recordset Dim Key As String Dim Text As String TreeView1.SingleSel = True 选中时自动展开。 TreeView1.Nodes.Clear 清除文本 TreeView1.Font.Name = 宋体 TreeView1.Font.Size = 10 增加一个顶节点 Key = Node_1_string Text = Node_1_string Set node1 = TreeView1.Nodes.Add(, tvwChild, Key, Text) 给第1层节点赋与数值 返回记录集 If Gconnect.GetRecordset_Data(SqlString, Recordset, ADOobject) 1 Then TV_TO_2_Chen = 1 Exit Function End If Do While Recordset.EOF = False 第二层赋值。 Key = node1.Index A Recordset.Fields(0).Value Text = Recordset.Fields(0).Value Set node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, Key, Text) 给第2层节点赋与数值 Recordset.MoveNext Loop Recordset.Close: Set Recordset = Nothing TV_TO_2_Chen = 0 Exit Function ONERROR: If Err.Number 0 Then Select Case Err.Number Case 91 MsgBox 数据库连接已被断开，请重新连接数据库！, vbExclamation, 网格连接 TV_TO_2_Chen = 2 Exit Function Case Else MsgBox 错误代码： Err.Number 错误描述： Err.Description, vbExclamation, TV二层控件 TV_TO_2_Chen = 2 Exit Function End Select End If End Function 示意图： Optional ByVal YearValue As String, Optional ByVal MontVlaue As String 1: +第一层字符串内容 2: .....第二层字符串内容 3: ......第三层字符串内容 入口参数；TreeView1 是要进行数据填充的TV控件 入口参数；Node_Text 是第一层节点的字符串 入口参数；SQLstring 是查询语句 将数据在TV控件中进行三层赋值。 Public Function TV_TO_3(ByRef TreeView1 As TreeView, _ ByVal Node_Text As String, _