Если я правильно понял
ColumnGrid.dbf
NameCol | Type |Visibly(.T.or.F.)
Col01 | | .T.
Col02 | | .f.
Col03 | | .T.

Если уж есть примерно такая таблица, то динамически и стройте грид

В ThisForm.Init(): (Grd-грид на форме)

use ColumnGrid.dbf
For i=1 to RecCount()
THisForm.Grd.AddColumns(i) (или AddObject('Column'=str(i),'Column'))
ThisForm.Grd.CurrentControl.Visible=Visibly
*!* ну и творчески через AddObject добавьте Header, по типу (ColumnGrid.Type) можно
*!* переопределить ColumnN.TextN
EndFor

Сухарь примерно такой. только нужна еще проверка на соответствие строк в
ColumnGrid.dbf и непосредственно ControlSource для грида
В общем, в цикле циклуйте...
Help...read as follows...
You can add controls to a column in a grid by using the AddObject method in the Init event of the form that contains the grid. To set the active control in the grid's column, use the column's CurrentControl property. To specify the source of the control's data, set the control's ControlSource property.