cedu
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 28/08/2008 11:01 hs
Prezados amigos, existe possibilidade de armazenar dois dados numa combobox, usando propriedades distintas? Imagine que tenho uma tabela funcionário e outra cargo, precisaria carregar numa propriedade o código do cargo e noutra o nome do cargo, de modo que no momento em que for inserir o código do cargo que é a chave estrangeira relacionada á tabela cargo, não precise dar um select no banco para captar o código do cargo relacionado ao que está selecionado no combo.textelecionado no combo.text. Desde já, valeu!!!
|
|
|
|
|
|
CSRocha
|
BRASILIA
DF - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/08/2008 17:10 hs
Tem a propriedade NewIndex de um item da combo. Veja:
-------------------------------------------------------
Private Sub CarregaAlunos()
If Not rsAluno.RecordCount = 0 Then
rsAluno.MoveMin
cboAluno.Clear
While Not rsAluno.EOF()
cboAluno.AddItem rsAluno!Nome
cboAluno.ItemData(cboAluno.NewIndex) = rsAluno!AlunoID
rsAluno.MoveNext
Wend
cboAluno.Text = ""
End If
End Sub
-----------------------------------------------------------
Quando alimentei essa combo, o campo Nome da tabela é a texto que aparece e o campo AlunoID é um campo NumeraçãoAutomática que uso como código de acesso.
Para recuperar esse dado, ao selecionar em um item da combo, sete uma variável qualquer que conterá esse valor, que deve ser numérico (não aceita string). Isso no evento LostFocus da combo. Como aqui:
achado = cboNome.ItemData(cboNome.ListIndex)
sendo que achado eu dimensionei no Geral do form como Long.
PS. Já editei 3 vezes e não sei porque acontece isso: na linha rsAluno.MoveMin, na verdade é Move-F-i-r-s-t.
|
|
TÓPICO EDITADO
|
|
|
|
cedu
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 29/08/2008 14:18 hs
CSRocha, tranqüilo, já aconteceu comigo uma vez e valeu mesmo! Há tempos vivo tendo uma trabalheira danada com isso, graças a vc, agora vai ficar fácil!!!
|
|
|
|
|
