Subject how to place an index on this form
From agostinho <agostinhoteixeira@yahoo.com>
Date Fri, 18 Sep 2020 14:34:04 -0400
Newsgroups dbase.getting-started

Dear group see this form bellow, it's a very simple one.
I'm trying to place an index (INDEXNAME="KCODE" on the form to make it work.
I got the alias database.dbf option on the INSPECTOR  but I don't see any option for index option.
If this is not possible from the inspector than how/where on the form him self.
Thanks


** END HEADER -- do not remove this line
//
// Generated on 09/18/2020
//
parameter bModal
local f
f = new NOBROWSForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class NOBROWSForm of FORM
   with (this)
      height = 16.0
      left = 26.7778
      top = 1.32
      width = 73.2222
      text = ""
   endwith

   this.BROWSE1 = new BROWSE(this)
   with (this.BROWSE1)
      height = 10.08
      left = 3.0
      top = 4.8
      width = 65.0
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      onKey = class::ENTRYFIELD1_ONKEY
      height = 2.4
      left = 3.0
      top = 0.48
      width = 29.0
      value = ""
   endwith

   function ENTRYFIELD1_onKey(nChar, nPosition,bShift,bControl)
      ccode=form.entryfield1.value
      seek ccode
      return

endclass