Information générale
Catégorie:
Codage, syntaxe et commandes
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
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