Visualizzazione dei risultati da 1 a 7 su 7
  1. #1
    Utente di HTML.it
    Registrato dal
    Jan 2009
    Messaggi
    138

    vb6 problema chiave con treeview

    buongiorno a tutti!!!
    che significa la chiave non è univoca nell'insieme?

    ho questo codice riguardante il treeview e proprio non capisco dove sia l'errore!

    ho messo in grassetto la parte "errata"




    Dim db As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim MNode As Node


    Private Sub Form_Load()
    'On Error GoTo err:
    Dim SQL As String
    SQL = "SELECT categoria1,format (sum(tot),'0.00')as total from misurazioni where designazione='------------ TOTALE MISURAZIONI ----------------->>' group by categoria1"
    Set db = New ADODB.Connection
    db.CursorLocation = adUseClient
    db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prova.mdb"
    Set rs = New ADODB.Recordset
    rs.Open SQL, db
    Dim i As Integer
    Set MNode = treeview1.Nodes.Add(, , "supercateg", "Super Categorie")
    rs.MoveFirst
    For i = 0 To rs.RecordCount - 1

    Set MNode = treeview1.Nodes.Add("supercateg", 4, rs("categoria1"), rs("categoria1") & " " & rs("total") & " € ")

    rs.MoveNext
    Next i
    rs.Close

    SQL = "SELECT categoria3,format (sum(tot),'0.00')as total from misurazioni where designazione='------------ TOTALE MISURAZIONI ----------------->>' group by categoria3"
    Set db = New ADODB.Connection
    db.CursorLocation = adUseClient
    db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prova.mdb"
    Set rs = New ADODB.Recordset
    rs.Open SQL, db

    Set MNode = treeview1.Nodes.Add(, , "categ", "Categorie")
    rs.MoveFirst
    For i = 0 To rs.RecordCount - 1

    Set MNode = treeview1.Nodes.Add("categ", 4, rs.Fields("categoria3"), rs.Fields("categoria3") & " " & rs.Fields("total") & " € ")



    rs.MoveNext
    Next i
    rs.Close

  2. #2
    cerchi di creare dei nodi con la solita chiave
    che valori contiene rs.Fields("categoria3")
    che hai messo dentro il ciclo?
    Ad ogni add dovrebbe essere un valore diverso perchè è la chiave del nodo.

  3. #3
    Utente di HTML.it
    Registrato dal
    Jan 2009
    Messaggi
    138
    grazie per la risposta. il mio problema è che utilizzo questo componente da ieri e quindi non ci capisco un gran che!! come faccio a dare ad add un valore diverso?

  4. #4
    anche semplicemente con:

    cstr(i) & rs.Fields("categoria3")

  5. #5
    Utente di HTML.it
    Registrato dal
    Jan 2009
    Messaggi
    138
    Set MNode = treeview1.Nodes.Add("categ", 4, rs.Fields("categoria3"), CStr(i) & rs.Fields("categoria3") & " " & rs.Fields("total") & " € ")


    ho fatto come mi hai consigliato tu, e intanto ancora grazie per l'aiuto !! xo il problema è sempre lo stesso!!

    la chiave non è univoca nell'insieme.ù

    ciò che è strano, è che se salto l'errore e mando in esecuzione la riga che segue, quello che voglio io dall'applicazione lo esegue perfettamente!!!

  6. #6
    uarda che la key è il terzo parametro nel metodo Add, non il quarto...

  7. #7
    Utente di HTML.it
    Registrato dal
    Jan 2009
    Messaggi
    138
    quindi andrebbe impostato in quest maniera?

    Set MNode = treeview1.Nodes.Add("categ", 4, CStr(i) & rs.Fields("categoria3"), rs.Fields("categoria3") & " " & rs.Fields("total") & " € ")



    grazie ancora!!!!

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.