Private Sub TreeView_NodeClick(ByVal Node As Object)
'* -----------------------------------------------------------------
'*树控件的鼠标点击事件为NodeClick
'* -----------------------------------------------------------------
Dim Str As String
Dim Rs As New ADODB.Recordset
Dim Rsc As New ADODB.Recordset
Dim Rstem As New ADODB.Recordset
'Dim blnIsCustomer As Boolean
'* -----------------------------------------------------------------
'*定义一个筛选
'* -----------------------------------------------------------------
If Node.Text = "工程" Or Node.Key Like "父*" Or Node.Key Like "子*" Then
Str = ""