Subject Re: Rowset at the end of Set
From Mervyn Bick <invalid@invalid.invalid>
Date Mon, 19 Feb 2024 10:26:58 +0200
Newsgroups dbase.getting-started
Attachment(s) grid_editor_bug.wfm

On 2024/02/18 15:27, Ken Mayer wrote:

> This isn't ADO specific. I did this with a local table and got the same
> results. It's specifically the grid's editorControl being set to the
> editor, and an empty rowset. Very odd.
 >
> Ken
 >

I must admit I hadn't tested this with a local table.  I'm afraid I
can't replicate the error.

My little test form is attached.

Mervyn


if file('grid_editor_bug.dbf')
drop table grid_editor_bug
endif

if not file('grid_editor_bug.dbf')
   create table grid_editor_bug  (id autoinc,data blob(0,1),data1 char(25))
endif

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

class grid_editor_bugForm of FORM
   with (this)
      height = 16.0
      left = 23.7143
      top = 4.8636
      width = 88.1429
      text = ""
   endwith

   this.GRID_EDITOR_BUG1 = new QUERY(this)
   with (this.GRID_EDITOR_BUG1)
      left = 2.0
      width = 13.0
      height = 1.0
      sql = 'select * from "grid_editor_bug.DBF"'
      active = true
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.grid_editor_bug1.rowset
      columns["COLUMN1"] = new GRIDCOLUMN(form.GRID1)
      with (columns["COLUMN1"])
         dataLink = form.grid_editor_bug1.rowset.fields["id"]
         editorType = 1        // EntryField
         width = 15.7143
      endwith
      columns["COLUMN2"] = new GRIDCOLUMN(form.GRID1)
      with (columns["COLUMN2"])
         dataLink = form.grid_editor_bug1.rowset.fields["data"]
         editorType = 5        // Editor
         width = 26.1429
      endwith
      columns["COLUMN3"] = new GRIDCOLUMN(form.GRID1)
      with (columns["COLUMN3"])
         dataLink = form.grid_editor_bug1.rowset.fields["data1"]
         editorType = 5        // Editor
         width = 35.7143
      endwith
      with (columns["COLUMN1"].headingControl)
         value = "id"
      endwith

      with (columns["COLUMN2"].headingControl)
         value = "data"
      endwith

      with (columns["COLUMN3"].headingControl)
         value = "data1"
      endwith

      height = 6.7727
      left = 2.1429
      top = 3.5455
      width = 82.0
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 1.0909
      left = 32.0
      top = 12.9091
      width = 15.2857
      text = "Close"
   endwith

   this.rowset = this.grid_editor_bug1.rowset

   function PUSHBUTTON1_onClick()
      form.close()
      return

endclass