Postada em 05/02/2005 19:27 hs
Olá! Tenho um form com 2 objetos Data e 2 DBGrids. Quando o usuário clica em uma linha do 1º grid o 2º grid deve ser carregado com os produtos relativos ao cliente selecionado no 1º grid. Ambos os objetos Data são carregados com consultas SQL.
O problema é que o segundo Grid não está sendo atualizado quando é feita a consulta. As propriedades estão aparentemente setadas corretamente.
O código é esse aqui:
Private Sub Form_Load()
Data1.RecordSource = "SELECT cod, nome, tel1, bairro, cidade FROM Clientes WHERE cod_cobrador = 1" '& codCobrador
End Sub
Private Sub Grade1_ButtonClick(ByVal ColIndex As Integer)
CarregaProdutos
End Sub
Function CarregaProdutos()
Data2.RecordSource = "SELECT cod, tipo, contador, obs FROM Produtos WHERE cod_cliente = " & Grade1.Columns(0)
Grade2.Refresh
End Function
|
