ALIMENTANDO DOIS COMBOBOX

NEGRON 13/10/2009 21:53:17
#325221
Boa Noite galera!!!!!!!!!!!!!!!
Galera to tentando encher 2 combos com dados de um banco de dados
vejam o código
  
TABLOCFIA.Open [Ô] SELECT CODIGOLOC,CODIGOFIADOR FROM LOCATARIOFIADOR WHERE CODIGOLOC=[Ô] & PENTRADA & [Ô] [Ô], CONECTABANCO

If Not TABLOCFIA.EOF Then
     Do While Not TABLOCFIA.EOF

          P_FIADOR1 = Trim(TABLOCFIA.Fields([Ô]CODIGOFIADOR[Ô]))
          P_FIADOR2 = Trim(TABLOCFIA.Fields([Ô]CODIGOFIADOR[Ô]))

          TABLOCFIA.MoveNext
     End If
Loop
End If

Não to conseguindo por favor me ajudem
TECLA 13/10/2009 23:00:45
#325227
Tente assim:

TABLOCFIA.Open [Ô] SELECT CODIGOLOC,CODIGOFIADOR FROM LOCATARIOFIADOR WHERE CODIGOLOC=[Ô] & PENTRADA & [Ô] [Ô], CONECTABANCO

If Not TABLOCFIA.EOF Then
     Do While Not TABLOCFIA.EOF
          Combo1.AddItem Trim(TABLOCFIA.Fields([Ô]CODIGOFIADOR[Ô]))
          Combo2.AddItem Trim(TABLOCFIA.Fields([Ô]CODIGOFIADOR[Ô]))
          TABLOCFIA.MoveNext
     End If
Loop
End If


PS. Porque carregar dois COMBOS com os MESMOS DADOS?
[S59]
NEGRON 13/10/2009 23:23:08
#325235
Amigo Tecla
esse combo é para os fiadores, aí o usuario escolheu,um fiador para o combo1 e outro fiador para o combo2
TECLA 14/10/2009 09:30:01
#325248
Citação:

NEGRON escreveu:
Amigo Tecla
esse combo é para os fiadores, aí o usuario escolheu,um fiador para o combo1 e outro fiador para o combo2



OK.

Referente ao COMBO, problema resolvido?
Se sim, favor ENCERRAR O TÓPICO.
Tópico encerrado , respostas não são mais permitidas
Voltar