I have a dynamically defined Grid which needs to call certain methods.

How do I initialise the Method calling.

From One Grid I need to structure another Grid.

Such is the code.


LPARAMETERS nColIndex

mitemcd = itemcd
=seek('1'+mitemcd,'cmsc')
mItemHd = allt(cmsc.mschd1)

do selfrgrid with '3','2' in udsnvsm &&Method & Variables externally executed

Thisform.pageframe1.page1.coloursgrid1.RecordSource = "&mDSGrid"
Thisform.pageframe1.page1.coloursgrid1.ColumnCount = mnColumnCount
Thisform.pageframe1.page1.coloursgrid1.Removeobject("Column1")

Local mNowCount,mColumnWidth,mColumnValid,mColumnCaption,mColumnAlignment

for mNowCount = 2 to mnColumnCount

mColumnWidth = 'Column'+alltrim(str(mNowCount))+'.Width'
mColumnValid = 'Column'+alltrim(str(mNowCount))+'.Text1.Valid'
mColumnCaption = 'Column'+alltrim(str(mNowCount))+'.Header1.Caption'
mColumnAlignment = 'Column'+alltrim(str(mNowCount))+'.Header1.Alignment'

Thisform.pageframe1.page1.coloursgrid1.&mColumnWidth = mDimColumnWidth(mNowCount)


*** HERE'S THE PROBLEM AREA ***

if !empty(mDimColumnValid(mNowCount))

Thisform.pageframe1.page1.coloursgrid1.&mColumnValid = mDimColumnValid(mNowCount)

endif

Thisform.pageframe1.page1.coloursgrid1.&mColumnCaption = mDimColumnCaption (mNowCount)
Thisform.pageframe1.page1.coloursgrid1.&mColumnAlignment = 2

endfor

sele (gridsmry)


All Works Fine except calling of the valid Method. I know that I am not supposed to give a direct [Valid] call. How do I do the calling.

Thanks,
Freddie Rodrigues