If you are wondering what the code is that produced that searchable grid. Here it is:
Code:
define class myform as form
enddefine
define class mytextbox as textbox
proc interactivechange()
searchkey = upper(this.text)
grid1.filter = "startswith(customerid,searchkey)"
this.setFocus()
endproc
enddefine
public grid1
open database southwind
use customers order tag customerid
form1 = createobject("myform")
form1.addobject("container1", "container")
container1.layout = “vertical”
container1.autosize = .T.
container1.addobject("textbox1", "mytextbox")
textbox1.autowidth = .T.
container1.addobject("grid1", "grid")
grid1.autopagination = .F.
grid1.recordmark = 1
grid1.recordsource = "customers"
grid1.columncount = 3
grid1.column1.controlsource = "customers.customerid"
grid1.column1.caption = "First Column"
grid1.column2.controlsource = "customers.contactname"
grid1.column2.caption = "Second Column"
grid1.column3.caption = "Row"
grid1.column3.width = 100
grid1.column3.controlsource = "customers.rowid"
grid1.readonly = .T.
grid1.autosize = .T.
grid1.show()
form1.show(1)
Bookmarks