Here's the code after your help. It does run & design the Grid.

What I need is that the Valid function should run while I am excessing Fields in the Dynamic Grid. It now seems that the Valid runs while the Grid is dynamically designed.


In [BeforeRowColChange]

LPARAMETERS nColIndex

do SelfRGrid with '3','2' in udsnvsm

sele (mDSGrid)
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
    mColumnName = "Thisform.pageframe1.page1.coloursgrid1.Column" + ALLTRIM(STR(mNowCount))
     WITH &mColumnName
          .AddObject("MyText1","MytextBox")
          .RemoveObject("Text1")
          .CurrentControl       = "MyText1"
          .MyText1.Visible      = .t.
          .Width                = mDimColumnWidth(mNowCount)
          .MyText1.ValidRoutine = mDimColumnValid(mNowCount)
          .Header1.Caption      = mDimColumnCaption(mNowCount)
     ENDWITH
NEXT
sele (gridsmry)