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