PROCEDURE GetFilter PARAMETERS; taFilter DIMENSION taFilter(2) taFilter(1) = THIS.TextBox1.VALUE && the filter Value taFilter(2) = THIS.CheckBox1.VALUE && Switch ENDPROCIn The Form the need to be filtered (Normaly a Click
PROCEDURE aButton.CLICK() LOCAL; loFilterForm,; laFilter ... loFilterForm = CREATEOBJECT('FilterForm') loFilterForm.SHOW(1) DIMENSION laFilter(1) loFilterForm.GetFilter(@laFilter) loFilterForm.RELEASE() loFilterForm = .NULL. IF laFilter(2) THEN SET FIELDS myField=laFilter(2) ENDIF ... ENDPROCHTH