Ops... Vou tentar ajudar... Eu sei lá onde o Lassala foi parar! Ele sempre está conectado, hoje não apareceu... Deve ter acabado a bateria! :)
Vou passar o básico do cliente, você faz uma adaptação para os produtos, ok?
1º - Você deve colocar um TextBox para o usuário digitar o que ele quer procurar. Adicione também uma grade para ter o resultado da busca. Não se esqueça do botão: OK.
2º - Código Valid do TextBox:
ThisForm.Grade.RecordSource = ""
Select Codigo, Nome From Clientes Where Nome = ThisForm.TextBox.Value Into Cursor cClientes
ThisForm.Grade.RecordSource = "cClientes"
3º - Código Valid do Botão OK:
MessageBox("Cliente selecionado: "+cCliente.Codigo + " " +cClientes.Nome)
Return .T.
Bem... Aqui está o básico... Acho que já dá para você brincar um pouquinho.
Depois você pode implementar uma busca por parte do nome (veja o LIKE do comando SQL). Também pode retornar um código do formulário atual para outro formulário...
[]s
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Rodolfo Duarte