这样的错误提示是什么原因呀

wangjianxiao

我做了一个tree窗体，在运行时出现以下错误，请帮我这个错误是怎么造成的。

Henry D. Sy

你是用ado吗？
如是，ado是什么版本？？
感觉是版本低引起的。

wangjianxiao

好象不是版本问题，因这同样的程序可以运行的。

roych

定义类型错误，需要看源文件才能“确诊”。

wangjianxiao

我将程序发上来你看看，麻烦了。
Private Sub TreeviewLoad()

    Set TreeView0.ImageList = ImageList.Object

    Me.TreeView0.Nodes.Clear

    Dim CONN As ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSql As String
    Dim nodIndex As Node

    Set nodIndex = TreeView0.Nodes.Add(, , "根", "天然气输气工区", "K")
    nodIndex.Sorted = True
    nodIndex.Expanded = True

    strSql = "SELECT DISTINCT 仪器仪表统计台帐.站名 From 仪器仪表统计台帐"
    Set CONN = CurrentProject.Connection
    CONN.CursorLocation = adUseClient

    rs.Open strSql, CONN, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    Do Until rs.EOF = True
        Set nodIndex = TreeView0.Nodes.Add("根", tvwChild, "干" & rs.Fields("站名"), rs.Fields("站名"), "K1", "K2")
        nodIndex.Expanded = True
        rs.MoveNext
    Loop
    rs.Close

    strSql = "SELECT DISTINCT 仪器仪表统计台帐.站名,仪器仪表统计台帐.计量点名称 From 仪器仪表统计台帐"
    rs.Open strSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    Do Until rs.EOF = True
        Set nodIndex = TreeView0.Nodes.Add("干" & rs.Fields("站名"), tvwChild, "枝" & rs.Fields("站名") & rs.Fields("计量点名称"), rs.Fields("计量点名称"), "K1", "K2")
        'nodIndex.Expanded = True
        rs.MoveNext
    Loop
    rs.Close

    strSql = "SELECT * From 仪器仪表统计台帐"
    rs.Open strSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    Do Until rs.EOF = True
        Set nodIndex = TreeView0.Nodes.Add("枝" & rs.Fields("站名") & rs.Fields("计量点名称"), tvwChild, "叶" & rs.Fields("站名") & rs.Fields("计量点名称") & rs.Fields("安装位置"), rs.Fields("安装位置"), "K1", "K2")
        rs.MoveNext
    Loop
    rs.Close

    Set rs = Nothing

End Sub

roych

wangjianxiao 发表于 2012-6-26 17:15
我将程序发上来你看看，麻烦了。
Private Sub TreeviewLoad()

上传附件可以么？只有代码还得做实例，太麻烦了~~