Error de unicidad en el campo del combox de fox pro 9
Tengo un error de unicidad que me indica en el campo donde esta el combox, como puedo sacar ese error .
Este es el codigo de mi boton guardar, si hace falta le envio la imagen de mi relacion, les explico extraigo datos de otra tabla que se llama oficina y tambien me da el mismo error cuando extraigo el director . Este es de la misma tabla la relacion director_rep-- num_emp.
Desde ya gracias por su pronta respuesta.
SELECT rep_ventas
SET ORDER TO num_emp
SEEK thisform.txtNum_emp.Value
IF FOUND()
replace Nombre WITH thisform.txtNombre.Value
replace Edad WITH thisform.txtedad.value
replace Titulo WITH thisform.txttitulo.value
replace Contato WITH thisform.txtContrato.value
replace Cuota WITH thisform.txtcuota.value
replace Ventas WITH thisform.txtventas.value
replace Oficina_rep WITH thisform.txtoficina_rep.value
replace Director_rep WITH thisform.txtdirector_rep.value
wait window "Datos Actualizados con exito"
ELSE
APPEND BLANK
replace Num_emp WITH thisform.txtNum_emp.Value
replace Nombre WITH thisform.txtNombre.Value
replace Edad WITH thisform.txtedad.value
replace Titulo WITH thisform.txttitulo.value
replace Contato WITH thisform.txtContrato.value
replace Cuota WITH thisform.txtcuota.value
replace Ventas WITH thisform.txtventas.value
replace Oficina_rep WITH thisform.txtoficina_rep.value
replace Director_rep WITH thisform.txtdirector_rep.value
wait window "Datos Guardados con exito"
preg1=messagebox("Desea agregar un nuevo registro?",4+32,"Atención")
if preg1=6
thisform.nuevo.click()
thisform.refresh
ELSE
thisform.txtNum_emp.value=""
thisform.txtNombre.value=""
thisform.txtedad.value=""
thisform.txttitulo.value=""
thisform.txtContrato.oBJECT.value=DATE()
thisform.txtcuota.value=""
thisform.txtventas.value=""
thisform.txtoficina_rep.value=""
thisform.txtdirector_rep.value=""
thisform.txtNum_emp.Enabled= .F.
thisform.txtNombre.Enabled= .F.
thisform.txtedad.Enabled= .F.
thisform.txttitulo.Enabled= .F.
thisform.txtContrato.Enabled= .F.
thisform.txtcuota.Enabled= .F.
thisform.txtventas.Enabled= .F.
thisform.txtoficina_rep.Enabled= .F.
thisform.txtdirector_rep.Enabled= .F.
ENDIF
ENDIF
thisform.nuevo.Enabled= .T.
thisform.guardar.Enabled= .F.
1 respuesta
Aparentemente el codigo se ve bien, Pero para que este codigo te funcione correctamente, debes verificar que los controles que estas usando para los campos Indices, no tengan vinculacion a la tabla, es decir, [control.datasource = ""] .
Los campos Combobox:
- Pueden tener [combobox.Rowsourcetype = 2 - Alias] y [combobox.rowsource = tabla], para el llenado automatico de datos.
- O Puedes llenarlo a nivel de programación, haciendo un ciclo hasta eof() y ejecutando la función AddItem, en el evento Load, o Activate.
