Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Quicken Like text box under a grid
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
The Mere Mortals Framework
Titre:
Quicken Like text box under a grid
Divers
Thread ID:
00438472
Message ID:
00438472
Vues:
75
I have a form off of the super class for bizobjects. When I use cGridList my textbox loses return visual functionality. That is screwed up but it means that the more you type in the control you no longer see additional characters in it.

My wait window will show all my characters, but the textbox shows the first find but not newer ones.

I'm looking for BUBBA'S, "B" shows the first B in the grid's data. But Pressing the "U", the grid does not move to "BUBBA ?

If I use the default grid from VFP it works well. I just need to highlight the row.

My interactivechange code that is firing:
If lastkey()<>127 && backspace key
lnplace = this.selstart
Else
lnplace = this.selstart
Endif &&lastkey()<>127

llfound=.f.
Wait wind nowait left(this.value,this.selstart) &&viewer for what is typed
If seek(left(this.value,this.selstart)) && Locator
llfound=.t.
This.refresh
thisform.cGridList1.Column1.Header1.click
this.value = v_teams.team_name
With thisform
.Ctextboxl1.TextBox.enabled = .f.
.Ctextboxl2.TextBox.enabled = .f.
.Ctextboxl1.TextBox.value = v_teams.city
.Ctextboxl2.TextBox.value = v_teams.state
.Ctextboxl1.refresh
.Ctextboxl2.refresh
.cGridList1.refresh
.cGridList1.setfocus
Endwith
Else
llfound=.f.
this.value = left(this.value,this.selstart)+space(35-this.selstart)
With thisform

.Ctextboxl1.TextBox.enabled = .t.
.Ctextboxl2.TextBox.enabled = .t.
.Ctextboxl1.TextBox.value = space(20)
.Ctextboxl2.TextBox.value = space(10)
.Ctextboxl1.refresh
.Ctextboxl2.refresh
.cGridList1.refresh
.cGridList1.setfocus
Endwith
Endif

This.setfocus
This.selstart=lnplace

if lastkey() = 13 && Enter key movement to proper next control
if llfound
ThisForm.Command1.setfocus
ThisForm.Command1.refresh
endif
endif

Return


TIA
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform