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