local i, obj, ColumnValue, cc

for i = 1 to this.ColumnCount
    obj = this.Columns[ i ]
    
    do case
    case !empty(obj.DynamicCurrentControl)
         cc = eval(obj.DynamicCurrentControl)

    otherwise
         cc = obj.CurrentControl

    endcase

    do case
    case empty(cc)
        ColumnValue = Null && none

    otherwise
        cc = obj.&cc
        ColumnValue = eval(cc.ControlSource)

    endcase

endfor