加上trim,所有的rs都要加上trim
把空格去掉!!  rs.Open "select distinct name from HRDOCS where dept='" & Trim(deptRs!dept) & "'", cn, 1, 3

解决方案 »

  1.   

    While Not rs.EOF
        TreeView1.Nodes.Add deptRs!dept, tvwChild, rs!Name, rs!Name
        'TreeView1的Key值重复deptRs!dept 
        rs.MoveNext
     Wend
      

  2.   

    Sorry,看错了, rs!Name值的重复或Null值
      

  3.   

    第一个参数应为Node对象,而deptRs!dept是stringTreeView1.Nodes.Add deptRs!dept, tvwChild, rs!Name, rs!Name改为
    TreeView1.Nodes.Add TreeView1.Nodes(deptRs!dept), tvwChild, rs!Name, rs!Name
    就OK了
      

  4.   

    rs!Name为Null值
    改为TreeView1.Nodes.Add deptRs!dept, tvwChild, rs!Name & "", rs!Name & ""
      

  5.   

    谢谢 ilqtj(飞天) ,行了, 加上Trim就得.谢谢 ItSeeker() 和ykn(ykn).