TDBRadioMenu / aItemsBound ?
Publicado: Mié Dic 04, 2024 12:50 am
Olá Ignacio,
Por favor, como podemos implementar na classe TDBRadioMenu a leitura/gravação de um texto? (ao invés da posição, parecido com o DbComboBox)
Por favor, como podemos implementar na classe TDBRadioMenu a leitura/gravação de um texto? (ao invés da posição, parecido com o DbComboBox)
Código: Seleccionar todo
oRmTipo:aItems:={'Jurídica', 'Física'}
oRmTipo:aItemsBound:={'J', 'F'} // opções válidas no campo da tabela
Se oRmTipo:aItemsBound não esta vazio...
Ao gravar o registro
if oRmTipo:nIndex = 1, consulta :aItemsBound e então gravar 'J' no campo
Ao ler o registro
if oRmTipo:oDataField:value = 'F', consulta :aItemsBound e então inicializar oRmTipo:nIndex:= 2