define query qryField for _field.
define browse browse-1 query qryField
display _field-name
with size 36 by 18.
define frame frame-1
browse-1 at row 1 col 1
with size 40 by 20.
open query qryField for each _field no-lock.
enable browse-1 with frame frame-1.
MESSAGE browse-1:max-data-guess.
on value-changed of browse-1
do:
MESSAGE browse-1:max-data-guess.
end.
wait-for close of this-procedure.
ASSIGN lOkay = BROWSE yourBrowseName:QUERY:REPOSITION-TO-ROWID ( yourRowid ).