G
goo
Guest
Running this from a procedure, could anyone tell me why I should not get the same result for both combo-box's ? Why do I not get the same lookup for cmbInteger? *** DEF VAR cmbInteger AS INT FORMAT ">>>>9" VIEW-AS COMBO-BOX NO-UNDO. DEF VAR cmbCharacter AS CHARACTER VIEW-AS COMBO-BOX NO-UNDO. DEF FRAME f cmbInteger cmbCharacter WITH SIZE 60 BY 30. DEF VAR SearchValue AS CHAR INIT "(BB)" NO-UNDO. ON 'value-changed':U OF cmbInteger DO: cmbCharacter:SCREEN-VALUE = cmbInteger:SCREEN-VALUE. MESSAGE SELF:NAME SKIP 'INT:' cmbInteger:LOOKUP(SELF:SCREEN-VALUE) SKIP lookup(cmbInteger:SCREEN-VALUE,cmbInteger:LIST-ITEM-PAIRS,cmbInteger
ELIMITER) SKIP 'CHAR:' cmbCharacter:LOOKUP(cmbCharacter:SCREEN-VALUE) SKIP lookup(cmbCharacter:SCREEN-VALUE,cmbCharacter:LIST-ITEM-PAIRS,cmbCharacterELIMITER) VIEW-AS ALERT-BOX INFORMATION BUTTONS OK. RETURN. END. DO WITH FRAM f: cmbIntegerELIMITER = '|'. cmbInteger:LIST-ITEM-PAIRS = "Test (AA)|230|Test (BB)|240|Test (CC)|2502". cmbCharacterELIMITER = '|'. cmbCharacter:LIST-ITEM-PAIRS = "Test (AA)|230|Test (BB)|240|Test (CC)|2502". ENABLE ALL WITH FRAME f. END. WAIT-FOR CLOSE OF THIS-PROCEDURE.
Continue reading...
ELIMITER) SKIP 'CHAR:' cmbCharacter:LOOKUP(cmbCharacter:SCREEN-VALUE) SKIP lookup(cmbCharacter:SCREEN-VALUE,cmbCharacter:LIST-ITEM-PAIRS,cmbCharacterELIMITER) VIEW-AS ALERT-BOX INFORMATION BUTTONS OK. RETURN. END. DO WITH FRAM f: cmbIntegerELIMITER = '|'. cmbInteger:LIST-ITEM-PAIRS = "Test (AA)|230|Test (BB)|240|Test (CC)|2502". cmbCharacterELIMITER = '|'. cmbCharacter:LIST-ITEM-PAIRS = "Test (AA)|230|Test (BB)|240|Test (CC)|2502". ENABLE ALL WITH FRAME f. END. WAIT-FOR CLOSE OF THIS-PROCEDURE.Continue reading...