Montevideo
hresul = hconn.Exec("Select * from equipos order by Puntaje DESC, zdif DESC ") 'consulta sql
Do While hresul.Available
Clave = hresul["Equipo"]
tabla.Add(Clave, Clave)
tabla[Clave][1] = hresul["Puntaje"]
tabla[Clave][2] = hresul["Gf"]
tabla[Clave][3] = hresul["Gc"]
tabla[Clave][4] = hresul["zdif"]
hresul.MoveNext()
Loop
Do While hresul.Available
Clave = hresul["Equipo"]
tabla.Add(Clave, Clave)
tabla[Clave][1] = hresul["Puntaje"]
tabla[Clave][2] = hresul["Gf"]
tabla[Clave][3] = hresul["Gc"]
tabla[Clave][4] = hresul["zdif"]
hresul.MoveNext()
Loop
Y aquí el que falla:
hresu = hconn.Exec("Select * from Fechas ") 'consulta sql"
Do While hresu.Available
palabra = hresu["orden"]
tabla.Add(palabra, palabra)[b]'Aquí pone el error key already used[/b]
tabla[palabra][1] = hresu["Local"]
tabla[palabra][2] = hresu["glocal"]
tabla[palabra][3] = hresu["Visitante"]
tabla[palabra][4] = hresu["gvisita"]
hresu.MoveNext()
Loop
Do While hresu.Available
palabra = hresu["orden"]
tabla.Add(palabra, palabra)[b]'Aquí pone el error key already used[/b]
tabla[palabra][1] = hresu["Local"]
tabla[palabra][2] = hresu["glocal"]
tabla[palabra][3] = hresu["Visitante"]
tabla[palabra][4] = hresu["gvisita"]
hresu.MoveNext()
Loop
Como veràn cambie el nombre de algunas variables como clave pero igual me sigue dando el error.
Antes de la orden sql siempre hay un tabla.clear
Incluso tirè el còdigo a otro formulario y lo mismo.¿Alguna idea?
Gracias
S.O. Ubuntu 11.04
gambas 3
escritorio gnome
Albacete
