подскажите по treeview

[shady]

Код: Выделить всё

Private Sub Form_Load()
    Dim strKey As String
    Dim strPKey As String
    Dim strChKey As String
   
    Call ConnectSQL(strLogin, strPassword, strDataSource)
   
    Set rstTransReg = New ADODB.Recordset
   
    Set rstTransTown = New ADODB.Recordset
   
    Set rstTransporter = New ADODB.Recordset
        rstTransporter.Open "SELECT ID, Name FROM Transporters", conn
   
    Do While Not rstTransporter.EOF
        strKey = rstTransporter("ID").Value
           
            ' добавляем корневые узлы
            tvTrans.Nodes.Add , , " & strKey & ", rstTransporter("Name").Value
               
                ' (регионы)
                rstTransReg.Open "SELECT DISTINCT Regions.Name, Regions.ID " _
                    & " FROM Towns INNER JOIN TransTown ON dbo.Towns.ID = TransTown.IDTown INNER JOIN " _
                    & " Transporters ON TransTown.IDTrans = Transporters.ID INNER JOIN " _
                    & " Regions ON Towns.IDReg = dbo.Regions.ID " _
                    & " WHERE TransTown.IDTrans=" & rstTransporter("ID").Value, conn
                   
            ' (регионы доставки)
            Do While Not rstTransReg.EOF
                strPKey = rstTransReg.Fields("ID") & " " & strKey
                tvTrans.Nodes.Add " & strKey & ", tvwChild, " & strPKey & ", rstTransReg("Name").Value
               
                ' выбираем города в этих регионах
                rstTransTown.Open "SELECT Towns.ID, Towns.Name " _
                    & "FROM Towns INNER JOIN TransTown ON Towns.ID = TransTown.IDTown INNER JOIN " _
                    & "Transporters ON TransTown.IDTrans = Transporters.ID INNER JOIN Regions ON " _
                    & "Towns.IDReg = Regions.ID WHERE Towns.IDreg=" & rstTransReg("id").Value & " AND Transporters.ID=" & rstTransporter("ID").Value, conn
                   
                    ' добавляем города
                    Do While Not rstTransTown.EOF
                        strChKey = rstTransTown("ID").Value & " " & strPKey
                        tvTrans.Nodes.Add " & strPKey & ", tvwChild, strChKey, rstTransTown("Name").Value
                        rstTransTown.MoveNext
                    Loop
                    rstTransTown.Close
                rstTransReg.MoveNext
            Loop
            rstTransReg.Close
        rstTransporter.MoveNext
    Loop
    rstTransporter.Close
End Sub

1 раз выполняется и на втором разе

Код: Выделить всё

tvTrans.Nodes.Add , , " & strKey & ", rstTransporter("Name").Value

говорит

Key is not unique in collectioms

хотя в первом случае strKey=1, во втором =2
что я делаю не так?

[lister]

Сделай strKey="Node_1", "Node_2" и т.д

[BV]

Код: Выделить всё

" & strKey & "

Может все таки просто strKey?

[lister]

Но strKey, по-моему, не должно состоять только из цифр и strKey=1, =2 не прокатит

[shady]

сделал

Код: Выделить всё

strKey = "Node" & rstTransporter("ID").Value
            tvTrans.Nodes.Add , , strKey, rstTransporter("Name").Value

теперь на

Код: Выделить всё

' добавляем дочерние узлы (регионы доставки)
            Do While Not rstTransReg.EOF
                strPKey = rstTransReg.Fields("ID") & strKey
                tvTrans.Nodes.Add " & strKey & ", tvwChild, " & strPKey & ", rstTransReg("Name").Value

так говорит Element not found
а так:

Код: Выделить всё

tvTrans.Nodes.Add strKey, tvwChild, " & strPKey & ", rstTransReg("Name").Value

Key is not unique in collection

[shady]

и говорит это на первом "проходе"

[lister]

опять левые кавычки какие-то...

[shady]

действительно
только интересно почему первый раз вообще работало

[BV]

Но strKey, по-моему, не должно состоять только из цифр и strKey=1, =2 не прокатит

Совершенно верно.

только интересно почему первый раз вообще работало

Потому что первый раз ключ был задан как строка " & strKey & ".

[zan]

BV имел в виду следующее

tvTrans.Nodes.Add , , " & strKey & ", rstTransporter("Name").Value

tvTrans.Nodes.Add , , "key" & CStr(strKey), rstTransporter("Name").Value