Nadya:
This is a silly example of what you want:
In the DropdownListBox - Init event
(Yopu can add more colums for format, input mask). Just make sure everything is a character
THIS.AddListItem('Character', 1, 1)
THIS.AddListItem('C', 1, 2)
THIS.AddListItem('Hello Nadya', 1, 3)
THIS.AddListItem('Numeric', 2, 1)
THIS.AddListItem('N', 2, 2)
THIS.AddListItem('100.00', 2, 3)
THIS.AddListItem('Date', 3, 1)
THIS.AddListItem('D', 3, 2)
THIS.AddListItem('{}', 3, 3)
In the InteractiveChange event (I assume the TextBox is called txtValue)
lnIndex = THIS.ListIndex
lcDataType = THIS.List[lnIndex, 2]
lcValue = THIS.List[lnIndex, 3]
WAIT WINDOW STR(lnIndex,1,0) + ' ' + LTRIM(lcDataType) + ' ' + lcValue
WITH THISFORM.txtValue
DO CASE
CASE lcDataType == 'C'
.Format = ''
.InputMask = ''
.Value = lcValue
.Format = 'R'
.InputMask = 'XXXXXXXXXX'
CASE lcDataType == 'N'
.Format = ''
.InputMask = ''
.Value = VAL(lcValue)
.Format = ''
.InputMask = '99,999.99'
CASE lcDataType == 'D'
.Format = ''
.InputMask = ''
.Value = CTOD(lcValue)
.Format = 'D'
.InputMask = ''
ENDCASE
ENDWITH
Daniel
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement