Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Combobox in grid
Message
De
07/06/2001 09:14:21
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Combobox in grid
Divers
Thread ID:
00516273
Message ID:
00516273
Vues:
57
tried many things to get new text to stay...but either the first letter gets missed or it resets after every letter, it has no problems with items that are already in the listbox.
any ideas?
- jer

code follows:


grid.combo.valid ( no problems here )

if this.listindex < 1 and !isblank(this.displayvalue)
replace Doc_type with allt(this.displayvalue)
this.value = Doc_Type && fox needs this
FFound = .F.
for i = 1 to this.listcount
if Allt(Upper(this.list(i,1))) == allt(Upper(this.Value))
FFound = .T.
exit
endif
endfor
if !FFOund
this.additem(allt(this.Value))
endif
endif





grid.combo.interactiveChange ( this one chops first letter typed ):

select tmpRevControl
replace Status with iif(tmpRevControl.Status == "N", "N", "M")
if doc_rev > 0
replace isMod with "1" + substr(ismod, 2)
endif
thisform.caption = thisform.modcap
thisform.refresh



grid.combo.InteractiveChange ( this one removes each letter as it's typed )

select tmpRevControl
replace Doc_type with allt(this.displayvalue)
replace Status with iif(tmpRevControl.Status == "N", "N", "M")
if doc_rev > 0
replace isMod with "1" + substr(ismod, 2)
endif
this.value = Doc_Type
thisform.caption = thisform.modcap
thisform.refresh
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform