Local nCol, cType, lValue
With This
   For nCol = 1 To .ColumnCount
      lValue = Eval(.Columns(nCol).ControlSource)
      If Type('lValue') == 'N'
         .Columns(nCol).Format = 'Z'
      EndIf
   EndFor
EndWith