DBSETPROP("MyView.CurrencyField", "Field", "Datatype", "N(18,2)")
Open Database mydatabase Select d1.objectname as viewname, d2.objectname as fieldname ; From DBC() d1 ; Join DBC() d2 ; On d1.objectid = d2.parentid ; And d1.objecttype= "View" ; Where IIf(d1.objecttype = "View", ; DBGetProp(Alltrim(d1.objectname), "View", "SourceType") = 2, ; .F.) ; And IIf(d2.objecttype = "Field", ; DBGetProp(d1.objectname-'.'-Alltrim(d2.objectname), "Field", "Datatype") = "Y", ; .F.) ; Into Cursor cuViewField Scan DBSetProp(viewname-"."-Alltrim(fieldname), "Field", "Datatype", "N(18,2)") EndScan