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:
- rResult AS Result
- PUBLIC SUB _new()
- tipoprodList.Columns.count = 3
- tipoprodList.Columns[0].Width = 65
- tipoprodList.Columns[1].Width = 310
- tipoprodList.Columns[2].Width = 90
- tipoprodList.Columns[0].Text = "Codigo"
- tipoprodList.Columns[1].Text = "Descripcion"
- tipoprodList.Columns[2].Text = "C. Stock"
-
-
- END
- PUBLIC SUB Form_Open()
- DIM n AS Integer
- DIM cont AS Integer
- DIM ctl AS Integer
- cont = 0
- rResult = FMain.hcon.Exec("SELECT * FROM tipoprod")
-
- IF rResult.Available THEN
- tipoprodList.Rows.Count = rResult.count
- n = 0
- REPEAT
- tipoprodList[cont, 0].Text = rResult!codtproducto
- tipoprodList[cont, 1].Text = rResult!descripcion
- ctl = rResult!controlstock
- IF ctl = 1 THEN
- tipoprodList[cont, 2].Picture = Picture[User.Home & "/.factura/images/check1.png"]
- ELSE
- tipoprodList[cont, 2].Picture = Picture[User.Home & "/.factura/images/check0.png"]
- ENDIF
- cont = cont + 1
- UNTIL rResult.MoveNext
- ELSE
- n = 1
- ENDIF
- CATCH
- message.Error(Error.Text & " " & Error.where)
- END
Pero me sale esta error:
Como se puede solucionar. Gracias y un saludo...