[RISOLTO] ComboBox.Index

[Taurus dei miracoli]

Ho valorizzato dei combo con questa funzione

Codice: gambas [Seleziona]

Public Function FCaricaCombo()
  
  Dim sql As String
  Dim hres As Result
  Dim hret As Result
  Dim hreu As Result
  
  With MSysCont.$hConn
    .Type = "sqlite3"
    .Host = MSysCont.sPercorso
    MSysCont.pConnetti()
    sql = "SELECT id, ragsociale FROM fornitori ORDER BY ragsociale;"
    hres = .Exec(sql)
    ComboBox1.Clear
    For Each hres
      ComboBox1.Add(hres!ragsociale, hres!id)
    Next
    MSysCont.pDisconnetti()
    .Type = "sqlite3"
    .Host = MSysCont.sPercorso
    MSysCont.pConnetti()
    sql = "SELECT id, codice, descrizione FROM codiva ORDER BY codice;"
    hret = .Exec(sql)
    ComboBox2.Clear
    ComboBox4.Clear
    ComboBox6.Clear
    ComboBox8.Clear
    For Each hret
      ComboBox2.Add(hret!codice & " - " & hret!descrizione, hret!id)
      ComboBox4.Add(hret!codice & " - " & hret!descrizione, hret!id)
      ComboBox6.Add(hret!codice & " - " & hret!descrizione, hret!id)
      ComboBox8.Add(hret!codice & " - " & hret!descrizione, hret!id)
    Next
    MSysCont.pDisconnetti()
    .Type = "sqlite3"
    .Host = MSysCont.sPercorso
    MSysCont.pConnetti()
    sql = "SELECT id, codice, conto FROM conti WHERE livello = 3 AND tipo = 2 ORDER BY codice;"
    hreu = .Exec(sql)
    ComboBox3.Clear
    ComboBox5.Clear
    ComboBox7.Clear
    ComboBox9.Clear
    For Each hreu
      ComboBox3.Add(hreu!codice & " - " & hreu!conto, hreu!id)
      ComboBox5.Add(hreu!codice & " - " & hreu!conto, hreu!id)
      ComboBox7.Add(hreu!codice & " - " & hreu!conto, hreu!id)
      ComboBox9.Add(hreu!codice & " - " & hreu!conto, hreu!id)
    Next
    MSysCont.pDisconnetti()
  End With  
  
End

Come potete vedere definisco sia il text che l'index, quando poi faccio la lettura con questo codice:

Codice: gambas [Seleziona]

Public Sub ComboBox3_Click()
  
  Dim sql As String
  Dim hres As Result
  Dim iRis As Integer
  
  If bOp > 0 Then  
    With MSysCont.$hConn
      .Type = "sqlite3"
      .Host = MSysCont.sPercorso
      MSysCont.pConnetti()
      sql = "SELECT * FROM conti WHERE id = " & ComboBox3.Index & ";"
      hres = .Exec(sql)
      If hres.Available = True Then
        Message.Info(hres.conto)
        Label15.Text = hres!conto
      Endif
      MSysCont.pDisconnetti()
    End With  
    dTotPar = dTotPar + fTot[0]
    TextBox24.Text = Format(dTotPar, "#.#0")
    If dTotDoc = dTotPar Then
      iRis = Message.Question("Il totale del documento è stato raggiunto. Chiudo il documento?", "Si", "No")
      If iRis = 1 Then
'        fSalvaDoc()
      Else
        TextBox15.SetFocus
      Endif
    Else
      TextBox15.SetFocus
    Endif
  Endif
  
End

non mi trova niente.
Perchè???

[Taurus dei miracoli]

Ho fatto una verifica ulteriore.
Nel momento in cui valorizzo i combo con la funzione descritta sopra i valori dell'index sono corretti.

Nel momento in cui eseguo l'evento click sulla combo il valore di index è in ordine progressivo da 0 a n-1

[Picavbg]

Ho fatto una verifica ulteriore.
Nel momento in cui valorizzo i combo con la funzione descritta sopra i valori dell'index sono corretti.

Nel momento in cui eseguo l'evento click sulla combo il valore di index è in ordine progressivo da 0 a n-1

Non capisco cosa vuoi dire con valori di index corretti quando valorizzi. Tu valorizzi le ComboBox con ComboBox~.add.
la funzione ".add" agisce numerando gli elementi della List di appartenenza alla ComboBox in trattamento partendo sempre da 0, per cui quando stai caricando il primo elemento, esso sarà riferito da 0 e così via, fino all'ennesimo caricamento; allora il valore index di riferimento sarà n-1, come giustamente lo trovi al momento del click.
Ciao.

[Taurus dei miracoli]

La guida di Gambas dice:

Codice: [Seleziona]

ComboBox.Add (gb.qt4)
SUB Add ( Item AS String [ , Index AS Integer ] )
Inserts an element in the popup list box.
If Index is specified, then the new item is inserted at the Index position, 0 being the first item.
If Index is not specified, the new item is inserted at the end of the list.

Da come capisco, se inserisco il valore Index, sono io che lo difinisco. Mentre invece se non lo specifico viene inserito in maniera progressiva.
Sbaglio?

[Picavbg]

La guida di Gambas dice:

Codice: [Seleziona]

ComboBox.Add (gb.qt4)
SUB Add ( Item AS String [ , Index AS Integer ] )
Inserts an element in the popup list box.
If Index is specified, then the new item is inserted at the Index position, 0 being the first item.
If Index is not specified, the new item is inserted at the end of the list.

Da come capisco, se inserisco il valore Index, sono io che lo difinisco. Mentre invece se non lo specifico viene inserito in maniera progressiva.
Sbaglio?

L'esempio riportato col commento ti dice chiaramente che, nella ComboBox.List, Index punta agli elementi della List cominciando dal I° elemento come elemento con n° progressivo 0, il II° con n° progressivo 1 e così via; poi ti dice anche che se tu decidi di inserire un elemento nuovo alla iV^ posizione nella ComboBox.List devi scrivere: ComboBox1.add[3], mentre se vuoi semplicemente aggiungere in coda alla ComboBox.List basta scrivere ComboBox1.add.
In quest'ultimo caso però occorre tenere presente la proprietà "Sorted" della ComboBox, perché se poni ComboBox1.sorted=False. la funzione ComboBox1.add porrà il nuovo elemento in coda alla lista, mentre se poni ComboBox1.sorted=True la funzione ComboBox1.add porrà il nuovo elemento nella posizione relativa all'ordine alfabetico degli elementi contenuti in quel momento nella ComboBox.List.
Spero di essermi espresso chiaramente. Ciao.

[Taurus dei miracoli]

Ok, per fare quello che voglio devo utilizzare un array.
Grazie