* save filter values button code Set Safety Off Local LcFilterFile,LcPath m.LcFilterFile=Putfile('Filter File Name','','MEM') If ! Empty(m.LcFilterFile) Save To (m.LcFilterFile) All Like cVar* Messagebox("Your Filter File Has Been Created...","Saving Filter Values") Endif
* load saved filter values button code Local LcFilterFile m.LcFilterFile=Getfile('MEM','Select Filter File Name','Your Choice',1,'Filter File Name') If ! Empty(m.LcFilterFile) Restore From (m.LcFilterFile) ADDITIVE Thisform.Refresh() Endif