Relacionamento entre 2 Tabelas

[negrao]

Tenho uma tabela Chamada Contas e Clientes
Na tabela de contas tenho
DOCU VALOR CLIENTE
1 100,00 1
2 200,00 2
3 300,00 3

e na Tabela de Clientes
CODI NOME
1 PEDRO
2 ZE
3 ROMARIO

Como fazer para que no meu Dbedit, mostre o conteudo do arquivo de contas mas com o nome do cliente.
Obs..: Sei que da pra criar uma funcao dentro do Dbedit que procure no arquivo de clientes, gostaria de aprender a usar o set relation ou DBsetrelation

Obrigado

[janio]

Amigo,

Vc pode utilizar o SET RELATION, para fazer a relacionamento com o cadastro de CLIENTES, mas ele deve estar indexado pelo codigo do cliente. No seu caso, ficaria + ou - assim:

Código: Selecionar todos

SELECT CONTAS
SET RELATION TO CODCLI INTO CLIENTE

declare vetcampo[3]
vetcampo[1]="DOCU"
vetcampo[2]="VALOR"
vetcampo[3]="CLIENTE->NOME" 

declare vetpict[3]
vetpict[1]="9999"
vetpict[2]="@E 99,999.99" 
vetpict[3]="@!"

declare vetcab[3]
vetcab[1]="Documento"
vetcab[2]="Valor"
vetcab[3]="Cliente"

CORES(4)
@ 10,05 clear to 16,70
@ 10,05 to 16,70 double
GO TOP

dbedit(11,06,15,69,vetcampo,,vetpict,vetcab,"=")

*
* Aqui você desativa o relacionamento
*
SET RELATION TO

Um abraço,

Janio