Busca automática de valores

[frcosilva 0]

Ola todos!

 

Tenho uma aplicação que precisa migrar valores entre duas tabelas.

 

1ª Tabela:

Master – Tab A (Cod1 - Chave Primária – informado e Cod é auto incrementado)

Nesta informo o código do Produto

 

Detail – Tab A1 - DBGrid (não possui Chave Primária e nem auto incremento – recebe ligação pelo DM)

Nesta ele vem da Master e fica oculto.

Informo os cód. dos Sub Produtos que o compõe, informando o cód. e o valor unitário.

 

2ª Tabela:

Master – Tab B (Cod1 - Chave Primária – informado e Cod é auto incrementado)

 

Detail – Tab B1 – DBGrid (não possui Chave Primária e nem auto incremento - recebe ligação pelo DM)

Nesta informo o cód do Produto e o cód do Sub Produto que deverá buscar o valor unitário da Tab A1 (Detail da A).

• Receberá diversos Produtos

 

Ex.:

Tab A – Produto = A

Tab A1 – Produto = A, Sub Produto1 = 2,00

Sub Produto2 = 5,00

 

Tab B1 – Produto = A, Sub Produto1 = 2,00

Sub Produto2 = 2,00 –aqui deverá figurar o valor de 5,00

 

Tentei fazer c/ Lookup, porém ele busca sempre o primeiro valor que encontra.

Axo que deveria concatenar ambos os cód, do Produto e Sub Produto.

Fazer uma Array, um Like, Vetor ou algo assim, mas não consigo fazer.

 

Meu BD é Access ligado ao DM por ADOTable e DS.

 

Grato.

[Chrnos 30]

Porque não usa um TAdoQuery e monta um select unindo as duas tabelas e escolhendo os campos que quer exibir no dbgrid associando um TDataSource a TAdoQuery? É muito mais simples de fazer e seu código ficaria muito mais limpo.

 

[]'s

[frcosilva 0]

Se tivesse um ponto de partida poderia até conseguir, mas não temho base de como fazer.

Só aprendi a usar estes componentes. Sou novato e "quase" aprendi na internet.

Mas vou pesquisar pra ver se consigo algom baseado nisto.

Grato.