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

class test_arrayForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      onDesignOpen = class::FORM_ONDESIGNOPEN
      doubleBuffered = true
      height = 26.4091
      left = 27.7143
      top = 0.0
      width = 168.7143
      text = ""
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      anchor = 1	// Bottom
      height = 13.5
      left = 0.0
      top = 12.8182
      width = 168.4286
   endwith

   this.TEXT1 = new TEXT(this)
   with (this.TEXT1)
      height = 1.0
      left = 54.0
      top = 7.0
      width = 12.0
      text = "Text1"
   endwith


   function form_onDesignOpen(bFromPalette)
//		use :dbasesamples:customers.dbf
//		a = new array(reccount(), fldcount())
//		copy to array a all
//		use    // close customers.dbf
//		?a[1,2],a[2,2]
//		// setup 1 dimensional array with column names
//		acol = new array(10)
//		acol[1] = "CustomerID"
//		acol[2] = "Company"
//		acol[3] = "LastName"
//		acol[4] = "FirstName"
//		acol[5] = "Phone"
//		acol[6] = "Address1"
//		acol[7] = "Address2"
//		acol[8] = "City"
//		acol[9] = "State"
//		acol[10] = "Zip"
//		// Create arrayRowset object and load it
//		form.r = new arrayrowset()   // create arrayrowset r
//		form.r.load(a, acol)      
//      form.grid1.datalink = form.r
      return

   function form_onOpen()
		use :dbasesamples:customers.dbf
		a = new array(reccount(), fldcount())
		copy to array a all
		use    // close customers.dbf
		?a[1,2],a[2,2]
		// setup 1 dimensional array with column names
		acol = new array(10)
		acol[1] = "CustomerID"
		acol[2] = "Company"
		acol[3] = "LastName"
		acol[4] = "FirstName"
		acol[5] = "Phone"
		acol[6] = "Address1"
		acol[7] = "Address2"
		acol[8] = "City"
		acol[9] = "State"
		acol[10] = "Zip"
		// Create arrayRowset object and load it
		form.r = new arrayrowset()   // create arrayrowset r
		form.r.load(a, acol)
      form.grid1.datalink = form.r
		?form.r.fields["Company"].value
		form.r.next()
		?form.r.fields["Company"].value
		form.grid1.refresh()
      return

endclass