PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Como alimentar uma combo por uma tablegrid?
Como alimentar uma combo por uma tablegrid?
Iniciado por BOLLER, abr., 25 2019 4:16 PM - Sem resposta
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em abril, 25 2019 - 4:16 PM
Digamos a seguinte situação onde voce tem uma tablegrid e um combo e que ao clicar na tablegrid você quer que alimente uma combo (codigo e descricao) vindo de outra query, para isso é necessário fazer a combo mude de list para table em suas propriedades, e em seguida deve ligar cada coluna ao campo da query ou arquivo da combo.

nxMedicamento = TableInfoXY(TABLEGRID_T036_MEDICAMENTOS_CLIENTE_CAD,tiLineNumber,MouseXPos(),MouseYPos)

IF nxMedicamento >= 0

gnIDMedicamentoCliente = TABLEGRID_T036_MEDICAMENTOS_CLIENTE_CAD[nxMedicamento].COL_T036_MEDICAMENTOS_CLIENTEID

HReadSeek(T035_DOENCAS_CLIENTE,T035_DOENCAS_CLIENTEID,TABLEGRID_T036_MEDICAMENTOS_CLIENTE_CAD[nxMedicamento].COL_T036_ID_DOENCA_CLIENTE,hIdentical)

//busca a doença
HReadSeek(T072_CID_CIAP,T072_CID_CIAP.T072_CODIGO,T035_DOENCAS_CLIENTE.T035_DOENCA,hIdentical)

//tendo o codigo da doença em uma string
sCodigo is string = T072_CID_CIAP.T072_CODIGO

//busca na coluna da table do combo com Tableseek em vez de usar listseek, Pois o conteudo é misto de descricao e codigo
sResultado is int = TableSeek(COMBO_T035_DOENCAS_CLIENTE.COL_CODIGO,sCodigo)

//tendo a linha que tem o resultado, muda o conteudo no combo
ListSelectPlus(COMBO_T035_DOENCAS_CLIENTE,sResultado)

END


QUALQUER DÚVIDA ENTRE EM CONTATO

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/