文件管理器 新鲜出炉[原创]

sxhmft

accessxp+win2000下调试通过

sxhmft

谢谢，可爱的小兔子.请提个意见或建议。我想把它做成一个局域网内的文件资源共享管理系统。

sxhmft

兔兔，谢谢你，你的建议很好，我下一个网络版会用上的。文件位出现的updown箭头，是因为我给这个字段定义的比较长而文本框又较小之故。

sxhmft

在下面的函数中用DAO进行查询得到相应的记录，再用ADD方法。增加NODE。
Private Sub GetFunctionList()
'   初始化 FunctionList 树

On Error GoTo Tree_Fill_Err
   
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim nodeCurrent As Node
    Dim strFID, strPID As String
    Dim imgID As Integer
   
    strSQL = "Select * from MISFunctionList Where LN='CN' Order By ParentID,ID"
   
    Set rs = CurrentDb().OpenRecordset(strSQL)
   
    If Not rs.BOF Then
        rs.MoveFirst
    End If
   
   tvFunctionList.Nodes.Clear

    Do While Not rs.EOF
        strFID = "NO" + CStr(rs("ID"))
        strPID = "NO" + CStr(rs("arentID"))
        imgID = Nz(rs("Type"), 0)
        
        If rs("ID") = 0 Then
        tvFunctionList.Style = 3
            Set nodeCurrent = tvFunctionList.Nodes.Add(, tvwFirst, strFID, rs("Name"), imgID, imgID + 1)
               
        Else
           tvFunctionList.Style = 7
           Set nodeCurrent = tvFunctionList.Nodes.Add(strPID, tvwChild, strFID, rs("Name"), imgID, imgID + 1)
        End If
        
        nodeCurrent.Tag = Nz(rs("FCode"), "")
        rs.MoveNext
    Loop
   
    If tvFunctionList.Nodes.Count > 1 Then
        tvFunctionList.Nodes(2).Expanded = True
    End If
   
Function_Exit:
    rs.Close
    Set rs = Nothing
    Exit Sub
   
Tree_Fill_Err:
    DoErr (Err.Number)
End Sub

sxhmft

您还没有把原理看懂,主要是分类的编号(ID)需再仔细看看.就可找到病因所在.看示例要静下心来.