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