>AppointmentTypeSets.Colors,FromDate,ToDate,Day,StartTime,EndTime >>
>AppointmentTypeSets >>
local ix,lcColumnSources lcColumnSources = 'Colors,FromDate,ToDate,Day,StartTime,EndTime' alines(aCols, m.lcColumnSources,.t.,',') with thisform.myGrid .Recordsource = 'AppointmentTypeSets' For ix=.ColumnCount To 1 Step -1 If Ascan( aCols, Justext(.Columns( m.ix ).ControlSource), 1,-1,1,15) = 0 .DeleteColumn(m.ix) Endif Endfor For ix=1 To .ColumnCount .Columns(m.ix).ColumnOrder = ; ascan( aCols, Justext(.Columns( m.ix ).ControlSource), 1,-1,1,15) Endfor EndwithCetin