¿Por qué se duplican los registros?
Hola que tal, tengo un problema, tengo dos tablas en donde una la utilizo para consulta de registros y la 2da se relación con la 1ra, en el formulario aplico un seek en el textbox para buscar registro en la tabla "capevento" pueden ser varios registros duplicados pero hay un campo (eir) que no se duplica entonces en un combobox me muestran esta información, este campo (eir) esta relacionado con la tabla "captura" despliego la lista doy un click para que me aparezca los registros de la tabla "captura" en un grid y cada que recorro la lista y doy click me cambia la información en el grid, el problema es que hay registros que aparecen bien pero algunos me aparecen duplicados, porque?
En el método valid del texbox de consulta puse estas instrucciones:
Select capevento
Set Order To contenedor
Go Top
Seek m.contenedor
If Eof()
Messagebox('Contenedor no Existe')
Scatter Memvar Blank
Thisform.btnagregar.Enabled = .T.
Thisform.btncambiar.Enabled = .F.
Thisform.btnborrar.Enabled = .F.
Thisform.btnactualizar.Enabled = .F.
Thisform.btndeshacer.Enabled= .T.
Thisform.btnimprimir.Enabled = .F.
Thisform.btngrabar.Enabled = .F.
Thisform.btneliminar.Enabled = .F.
ELSE
Set Filter To contenedor = m.contenedor
mlinea=linea
Scatter Memvar Memo
Thisform.btnagregar.Enabled = .T.
Thisform.btncambiar.Enabled = .T.
Thisform.btnborrar.Enabled = .T.
Thisform.btnactualizar.Enabled = .T.
Thisform.btndeshacer.Enabled= .T.
Thisform.btnimprimir.Enabled = .T.
Thisform.btngrabar.Enabled = .T.
Thisform.btneliminar.Enabled = .T.
Endif
Thisform.Refresh
en el método valid del combobox puse esta serie de instrucciones:
Local nconsulta
nconsulta = ''
Select código,Descrip,dano,cantidad,horas,costohoras,costomater From captura INNER Join CAPEVENTO On CAPEVENTO.eir = M.eir And captura.eir = M.eir ;
WHERE captura.contenedor = m.contenedor Into Cursor nconsulta
Thisform.grdcaptura.RecordSource = 'nconsulta'
SELECT captura
Scatter Memvar Memo && alimenta textbox de consulta en el recorrido
SELECT capevento
Scatter Memvar Memo && alimenta textbox de consulta en el recorrido
Thisform.Refresh
Haber si es posible me puedas ayudar, de antemano muchas gracias.
Sds
Arturo Real
Veracruz, Ver.