CONTEUDO DE UMA VARIAVEL COMO VARIAVEL
Bom dia!
Estou quebrando a cabeça com uma coisinha:
O meu form é gerado de acordo com as informações que eu puxo do banco de dados, uma delas é o nome fa coluna que eu jogo na propriedade "TAG" dos controles gerados.
EX:
txtcontrol(0).tag = "NOME"
pois bem ai vai o desafio, na hora de consultar os dados tenho que identificar os campos com minha recordset. dai eu faço:
[txt-color=#0000ff] With RSd
cmbcontrol(i).AddItem "!" & cmbcontrol(i).Tag
End With[/txt-color]
no item cmbcontrol(i).tag eu precisava que aparecesse " !Nome "
Como que eu posso fazer isso sendo que o que eu quero armazenar no combo é o conteudo da recordset e não o nome da coluna:[S45][S50][S55][S61]
Estou quebrando a cabeça com uma coisinha:
O meu form é gerado de acordo com as informações que eu puxo do banco de dados, uma delas é o nome fa coluna que eu jogo na propriedade "TAG" dos controles gerados.
EX:
txtcontrol(0).tag = "NOME"
pois bem ai vai o desafio, na hora de consultar os dados tenho que identificar os campos com minha recordset. dai eu faço:
[txt-color=#0000ff] With RSd
cmbcontrol(i).AddItem "!" & cmbcontrol(i).Tag
End With[/txt-color]
no item cmbcontrol(i).tag eu precisava que aparecesse " !Nome "
Como que eu posso fazer isso sendo que o que eu quero armazenar no combo é o conteudo da recordset e não o nome da coluna:[S45][S50][S55][S61]
hummm... pelo que estou entendendo é fazer como existia no clipper - macro substituição.
até onde sei, não é possÃvel fazer no vb
até onde sei, não é possÃvel fazer no vb
Tenta assim:
With RSd
cmbcontrol(i).AddItem RSd.Fields(cmbcontrol(i).Tag)
cmbcontrol(i).tag cmbcontrol(i).Tag
End With
Pelo que entendi tu quer fazer isso aà de cima não é?
With RSd
cmbcontrol(i).AddItem RSd.Fields(cmbcontrol(i).Tag)
cmbcontrol(i).tag cmbcontrol(i).Tag
End With
Pelo que entendi tu quer fazer isso aà de cima não é?
Deu um erro !
"O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado"
Se eu faço o teste no Immediete Windows da certo:
?cmbcontrol(i).tag
nome
?RSd!nome
Industrias relacionadas
"O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado"
Se eu faço o teste no Immediete Windows da certo:
?cmbcontrol(i).tag
nome
?RSd!nome
Industrias relacionadas
Tópico encerrado , respostas não são mais permitidas