> LPARAMETERS tcCursorALias > Thisform.GriD1.RecordSourceType = 1 > Thisform.GriD1.ColumnCount = -1 > Thisform.GriD1.RecordSource = tcCursorAlias > FOR lni=1 TO Thisform.GriD1.ColumnCount > ?Thisform.GriD1.Columns(lni).ControlSource > ENDFOR >