Insertar Imagenes En Gridview Según Valor Bbdd [SOLUCIONADO]


Objetivo: Insertar Imagenes En Gridview Según Valor Bbdd [SOLUCIONADO]
Hola:

Sigo con mi programa de facturación, actualmente tengo un problema con un gridview al que quiero insertar una imagen según un campo Integer de una base de datos.
El código del campo lo inserto según un valor checkbox.value, al insertarlo en la bbdd lo inserto como integer y le doy un valor de 0 (sin marcar) y 1 (marcado)

El código es el siguiente:

Código: [Descargar] [Ocultar]
  1. rResult AS Result
  2.  
  3. PUBLIC SUB _new()
  4.  
  5. tipoprodList.Columns.count = 3
  6. tipoprodList.Columns[0].Width = 65
  7. tipoprodList.Columns[1].Width = 310
  8. tipoprodList.Columns[2].Width = 90
  9. tipoprodList.Columns[0].Text = "Codigo"
  10. tipoprodList.Columns[1].Text = "Descripcion"
  11. tipoprodList.Columns[2].Text = "C. Stock"
  12.  
  13.  
  14. END
  15.  
  16. PUBLIC SUB Form_Open()
  17.  DIM n AS Integer
  18.  DIM cont AS Integer
  19.  DIM ctl AS Integer
  20.  
  21. cont = 0
  22. rResult = FMain.hcon.Exec("SELECT * FROM tipoprod")
  23.  
  24. IF rResult.Available THEN
  25. tipoprodList.Rows.Count = rResult.count
  26. n = 0
  27. REPEAT
  28. tipoprodList[cont, 0].Text = rResult!codtproducto
  29. tipoprodList[cont, 1].Text = rResult!descripcion
  30. ctl = rResult!controlstock
  31.  IF ctl = 1 THEN
  32. tipoprodList[cont, 2].Picture = Picture[User.Home & "/.factura/images/check1.png"]
  33.  ELSE
  34. tipoprodList[cont, 2].Picture = Picture[User.Home & "/.factura/images/check0.png"]
  35.  ENDIF
  36. cont = cont + 1
  37. UNTIL rResult.MoveNext
  38. ELSE
  39. n = 1
  40. ENDIF
  41.  
  42.  
  43. CATCH
  44. message.Error(Error.Text & " " & Error.where)
  45.  
  46. END


Pero me sale esta error:

error1

Como se puede solucionar. Gracias y un saludo...

última edición por marcopc el Lunes, 28 Noviembre 2011, 19:33; editado 1 vez
Perfil MP  
Objetivo: Re: Insertar Imagenes En Gridview Según Valor Bbdd
Así de repente no veo donde está el error... El error indica que se espera un valor Boolean y en su lugar está recibiendo una función, en la linea 39 FTipoProducto dentro del Form.Open. ¿Cuál es la linea 39?

Normalmente el error consiste en que te faltan los paréntesis tras el nombre de la función que devuelve un valor booleano en alguna asignación en dicha línea 39.

Saludos

Perfil MP  
Objetivo: Re: Insertar Imagenes En Gridview Según Valor Bbdd
Gracias por responder tan rápido la línea 39 es: UNTIL rResult.MoveNext

por eso pensé que ese 39 no tenia nada que ver con la línea

Perfil MP  
Objetivo: Re: Insertar Imagenes En Gridview Según Valor Bbdd
Claro, entonces tienes que escribir UNTIL rResult.MoveNext() con los paréntesis. Movenext() devuelve True cuando ya no hay más registros, por lo tanto un valor booleano, pero si no pones los paréntesis digamos que entonces no devuelve un valor, sino que sólo se ejecuta la función como si fuera un método (sub).

Siempre tenemos que poner los paréntesis en la función aunque no tenga argumentos cuando vayamos a asignar el valor devuelto a una variable u otro objeto.

Saludos

Perfil MP  
Objetivo: Re: Insertar Imagenes En Gridview Según Valor Bbdd
Pues si tienes toda la razón me faltaban los paréntesis, entonces queda:

UNTIL rResult.MoveNext()

Muchas Gracias

Perfil MP  
Objetivo: Re: Insertar Imagenes En Gridview Según Valor Bbdd [SOLUCIONADO]
De nada.

He editado el mensaje inicial para que el código quede resaltado y muestre los números de línea, coincidiendo con el código real. La línea 39 coincide con la misma línea que cita el error.

Esto se hace para el que le interese modificando la etiqueta bbcode para la sintaxis resaltada de esta forma:

[code linenumbers=true start=X syntax=gambas], donde X es el número de línea donde comienza nuestro código real en el ide de gambas, tal como lo hemos copiado/pegado.

Al final hay que cerrar la etiqueta, como es lógico con [/code]

Perdón por el off topic

Saludos

Perfil MP  

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.474s (PHP: -76% SQL: 176%)
Consultas SQL: 45 - Debug off - GZIP Activado