getColumnOrder( ) example

The following example uses the getColumnOrder( ) method with a form's onOpen and onClose event handlers to store, and subsequently recall, a Grid's column order.

parameter bModal 

local f 

f = new testGridForm() 

if (bModal) 

f.mdi = false // ensure not MDI 

f.readModal() 

else 

f.open() 

endif 

class testGridForm of FORM 

with (this) 

onOpen = class::FORM_ONOPEN 

onClose = class::FORM_ONCLOSE 

height = 16 

left = 29.4286 

top = 3.6818 

width = 78.4286 

text = "" 

endwith 

this.PLUSSAMPLE1 = new DATABASE() 

this.PLUSSAMPLE1.parent = this 

with (this.PLUSSAMPLE1) 

left = -1.1429 

top = 0.5 

databaseName = "PLUSSAMPLE" 

active = true 

endwith 

this.FISH1 = new QUERY() 

this.FISH1.parent = this 

with (this.FISH1) 

left = -1.1429 

top = 0.5 

database = form.plussample1 

sql = "select * from fish.dbf" 

active = true 

endwith 

this.GRID1 = new GRID(this) 

with (this.GRID1) 

dataLink = form.fish1.rowset 

columns["COLUMN1"] = new GRIDCOLUMN(form.GRID1) 

columns["COLUMN1"].dataLink = form.fish1.rowset.fields["id"] 

columns["COLUMN1"].editorType = 1 // EntryField 

columns["COLUMN1"].width = 10.7143 

columns["COLUMN2"] = new GRIDCOLUMN(form.GRID1) 

columns["COLUMN2"].dataLink = form.fish1.rowset.fields["name"] 

columns["COLUMN2"].editorType = 1 // EntryField 

columns["COLUMN2"].width = 17.8571 

columns["COLUMN3"] = new GRIDCOLUMN(form.GRID1) 

columns["COLUMN3"].dataLink = form.fish1.rowset.fields["species"] 

columns["COLUMN3"].editorType = 1 // EntryField 

columns["COLUMN3"].width = 19.1429 

columns["COLUMN4"] = new GRIDCOLUMN(form.GRID1) 

columns["COLUMN4"].dataLink = form.fish1.rowset.fields["length cm"] 

columns["COLUMN4"].editorType = 3 // SpinBox 

columns["COLUMN4"].width = 10.2857 

columns["COLUMN5"] = new GRIDCOLUMN(form.GRID1) 

columns["COLUMN5"].dataLink = form.fish1.rowset.fields["description"] 

columns["COLUMN5"].editorType = 1 // EntryField 

columns["COLUMN5"].width = 11.7143 

with (columns["COLUMN1"].headingControl) 

value = "ID" 

endwith 

with (columns["COLUMN2"].headingControl) 

value = "Name" 

endwith 

with (columns["COLUMN3"].headingControl) 

value = "Species" 

endwith 

with (columns["COLUMN4"].headingControl) 

value = "Length CM" 

endwith 

with (columns["COLUMN5"].headingControl) 

value = "Description" 

endwith 

bgColor = "white" 

rowSelect = true 

hScrollBar = 1 // On 

vScrollBar = 1 // On 

height = 11.5 

left = 1.2857 

top = 2.7727 

width = 76.2857 

endwith 

this.TEXTLABEL1 = new TEXTLABEL(this) 

with (this.TEXTLABEL1) 

height = 1 

left = 22.2857 

top = 0.3182 

width = 41 

transparent = true 

text = "Grid.getColumnRows() example" 

colorNormal = "Blue" 

fontSize = 14 

endwith 

this.TEXTLABEL2 = new TEXTLABEL(this) 

with (this.TEXTLABEL2) 

height = 1 

left = 22 

top = 1.5909 

width = 40.5714 

text = "Move columns around, close form, re-run it ..." 

endwith 

this.rowset = this.fish1.rowset 

function form_onClose 

// Store column order to an array: 

aGridOrder = form.grid1.getColumnOrder() 

// save to a table 

if not file( "SaveGrid.dbf" ) 

// it doesn't exist -- save it 

create table SaveGrid ; 

( QueryName char( 20 ),; 

FieldName char( 20 ) ) 

else 

// it does exist, empty it! 

_app.databases[1].emptyTable( "SaveGrid" ) 

endif 

// create query: 

qSaveGrid = new query() 

qSaveGrid.sql = "select * from SaveGrid" 

qSaveGrid.active := true 

// loop through the grid's order and save it 

for i = 1 to aGridOrder.size/2 // two columns 

// column one is query name 

// column two is field name 

? aGridOrder[i,1], aGridOrder[i,2] 

qSaveGrid.rowset.beginAppend() 

qSaveGrid.rowset.fields["QueryName"].value := aGridOrder[i,1] 

qSaveGrid.rowset.fields["FieldName"].value := aGridOrder[i,2] 

next 

// cleanup 

qSaveGrid.active := false 

release object qSaveGrid 

return 

function form_onOpen 

// get information for grid: 

if file( "SaveGrid.dbf" ) 

// create query: 

qSaveGrid = new query() 

qSaveGrid.sql = "select * from SaveGrid" 

qSaveGrid.active := true 

// loop through the table and set grid's Columns: 

i=0 

do while not qSaveGrid.rowset.endOfSet 

i++ 

// set the datalink: 

cCommand = 'form.grid1.columns['+i+'].dataLink = form.'+; 

qSaveGrid.rowset.fields["QueryName"].value.rightTrim()+'.rowset.fields["'+; 

qSaveGrid.rowset.fields["FieldName"].value.rightTrim()+'"]' 

&cCommand. 

// Column header: 

form.grid1.columns[i].headingControl.value := ; 

qSaveGrid.rowset.fields["FieldName"].value.rightTrim() 

// next row 

qSaveGrid.rowset.next() 

enddo 

// cleanup 

qSaveGrid.active := false 

release object qSaveGrid 

endif 

return 

endclass