vb6 problema chiave con treeview

[antonyh.c]

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

[Max Mercury]

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.

[antonyh.c]

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?

[Max Mercury]

anche semplicemente con:

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

[antonyh.c]

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!!!

[Max Mercury]

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

[antonyh.c]

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!!!!