No logro relacionar 2 dbf. Llevo 2 horas y estoy liado.
Tengo 2 DBF:
AFORO && Dbf padre
ZONA && Dbf hija
ambas con un campo en común
ZONA,N,2,0
Indexo de la siguiente forma:
- Code: Select all Expand view
select 2 ; use aforo alias aforo shared
index on tran(tendido,'##') tag TAFORO
index on tran(tendido,'##')+tran(zona,'##')+tran(fila,'##') tag TZFAFORO
index on sol+tran(tendido,'##')+sector tag TSAFORO
index on tran(zona,'##') tag ZAFORO
select 7 ; use zona alias zona shared
index on tran(zona,'##') tag Nzona
Para abrir y relacionar hago lo siguiente:
- Code: Select all Expand view
select 7 ; use zona alias zona shared ; set index to zona
select 2 ; use aforo alias aforo shared ; set index to aforo
DBSETRELATION("zona",{|| aforo->zona},"aforo->zona")
Tal y como está hago un dbrelation() y no me devuelve nada pero todos los registros de PADRE me los muestra relacionado con el 1er. registro de HIJA. Si en el DBSETRELATION le quito las comillas a "zona", dbrelation() me devuelve la relacion pero los registros de PADRE me los muestra relacionado vacios.
¿ Como sería ? Utilizo FWH807 y xHarbour 27/June/2008
Mil gracias.
Lorenzo