Subject |
MOVE TO THE SEARCHED RECORD ON THE BROWS OR GRID ON THE FORM |
From |
AGOSTINHO <AGOSTINHOTEIXEITA@YAHOO.COM> |
Date |
Sun, 13 Sep 2020 10:33:48 -0400 |
Newsgroups |
dbase.getting-started |
Dear group,
On my form I search a record on the table but how do I move to the record
on the brows or grid object on the form using this method
SEE MY FORM BELLOW
** END HEADER -- do not remove this line
//
// Generated on 09/13/2020
//
parameter bModal
local f
f = new AGUSTForm()
if (bModal)
f.mdi = false // ensure not MDI
f.readModal()
else
f.open()
endif
class AGUSTForm of FORM
with (this)
onOpen = class::FORM_ONOPEN
height = 16.0
left = 42.8889
top = -0.52
width = 77.1111
text = ""
endwith
this.BROWSE1 = new BROWSE(this)
with (this.BROWSE1)
height = 9.12
left = 9.0
top = 5.76
width = 57.0
alias = "PRODUCTS"
fields = "PRODUCTS->CODE,PRODUCTS->MERK,PRODUCTS->PRODUCT"
endwith
this.ENTRYFIELD1 = new ENTRYFIELD(this)
with (this.ENTRYFIELD1)
onKey = class::ENTRYFIELD1_ONKEY1
height = 2.88
left = 3.0
top = 0.96
width = 22.0
value = ""
endwith
function ENTRYFIELD1_onKey1(nChar, nPosition,bShift,bControl)
ccode=form.entryfield1.value
Find &ccode
return
function form_onOpen()
USE PRODUCTS ORDER PRCODE
return
endclass
|
|