Posts: 4175 Location: dos hermanas, sevilla
Saturday, 30 July 2011, 08:32
sasogu:
Encontrado el bug....
En el formulario FOpenOfficCalcGambas2, en la función ButtonAnadir_Click(), viene el siguiente código:
- PUBLIC SUB ButtonAnadir_Click()
- DIM a AS Integer
- DIM repite AS Integer
- IF CheckBoxTitulos.Value = TRUE THEN
- 'la primera linea contiene titulos
- a = 1
- ENDIF
- FOR repite = a TO 1001
- IF comprobarvacio(repite) <> 1 THEN
- var.id.add("Id" & Str$(Now) & Str$(a))
- var.dni.add(GridViewLectura[repite, 3].text)
- var.nombre.add(GridViewLectura[repite, 1].text)
- ......
-
Como veis en la linea 10 (que es la 38 en el fichero original) , utiliza la variable "a" para ir añadiendo al Id un numero, pero no debe de usarse "a" (ya que es un valor fijo) sino "repite", que es el que va controlando el bucle... (es un típico error de "copiar y pegar", ya que normalmente siempre uso el contador "a", y en este caso en "repite"...
)
Linea corregida:
var.id.add("Id" & Str$(Now) & Str$(repite)) ' a sustituido por repite.... corrección bug
Asi ya se pueden insertar correctamente los datos, y posteriormente "editar" los datos importados.
BrunoIV:
Por otro lado, al importar datos, se producen "errores de conversion" en la consola, (que no afectan a la ejecución del programa), ya que el intenta convertir las imágenes del icono de
gambas que se introducen por defecto al importar datos.
Saludos y gracias por comentarme el error, paso a corregir el blog y el código fuente ....
