Fórum Exibir dois campos no DBLookupComboBox sem estar em edição #297617
28/09/2005
0
Tenho em um sistema um DBLookupComboBox que exibe dois campos (coloquei no listfield o ponto-e-virgula e o nome dos dois campos) na edição/inserção aparece numa boa, mas apos salvar o registro exibe apenas 1ª coluna.
Pergunto: Tem como exibir os dois campos enquanto navego nos registro através de uma navigator?
Ex.:
Como esta:
------------------------------------------
|Prova | V |
------------------------------------------
Como eu preciso:
------------------------------------------
|Prova Bimestral | V |
------------------------------------------
Chucky21
Curtir tópico
+ 0Posts
29/09/2005
Rogick
Gostei + 0
29/09/2005
Chucky21
DataField: COD_TIPO_MATERIAL
DataSource: dsrMaterial
KeyField: COD_TIPO_MATERIAL
ListField: ESPECIE_TIPO_MATERIAL;NOME_TIPO_MATERIAL
ListSource: dsrTipoMaterial
O problema é q os campos no listfield só aparece em tempo de inserção/edição e na hora q abro oform somente para navegação ñ aparece o segundo campo
Gostei + 0
29/09/2005
Fknyght
Gostei + 0
29/09/2005
Rogick
Ao invés de vc colocar no ListField da DBLookupCombobox os dois campos, vc coloca os dois campos no DisplayText de um usando o evento OnGetText de um deles.
Exemplo:
procedure TForm1.qrTipoMaterialESPECIE_TIPO_MATERIALGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if not Sender.IsNul then
Text := Sender.AsString + ´ ´ + qrTipoMaterial.FieldByName(´NOME_TIPO_MATERIAL´).AsString;
// Onde o Sender é o campo ESPECIE_TIPO_MATERIAL
end;
...
// Na DBLookup vc coloca assim
DataField: COD_TIPO_MATERIAL
DataSource: dsrMaterial
KeyField: COD_TIPO_MATERIAL
ListField: ESPECIE_TIPO_MATERIAL // Vai aparecer os dois campos
ListSource: dsrTipoMaterial
Não é a melhor solução, mas acho q isso serve p/ o propósito
Gostei + 0
29/09/2005
Chucky21
Sua dica resolveu o meu problema, MUITO OBRIGADO!
Grato pela sua atenção!!!!
Gostei + 0
29/09/2005
Rogick
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)