with thisform.pageframe1.page2.Grid1 .RecordsourceType = 4 && SQL .Columncount = -1 .Recordsource = 'select * from mstr'+; ' where UPPER(inname) = UPPER(TRIM(thisform.pageframe1.page1.text1.Value)) and nam1 = thisform.pageframe1.page1.text4.Value'+; ' into cursor crsMyCursor' ENDWITH thisform.pageframe1.page2.Grid1.refreshif found it i can see the result at page2 via grid1 belong to mstr.table
SELECT csrMstr ZAP lcWhere = [UPPER(inname) = '] + UPPER(TRIM(thisform.pageframe1.page1.text1.Value)) + [' and nam1 = '] + thisform.pageframe1.page1.text4.Value + ['] SELECT * FROM MSTR WHERE &lcWhere INTO CURSOR Temp NOFILTER SELECT csrMstr APPEND FROM DBF( [Temp] ) USE IN Temp GO TOP IN csrMstr IF RECCOUNT( [csrMstr] ) > 0 Thisform.PageFrame1.ActivePage = 2 Thisform.PageFrame1.Page2.Grid1.Refresh() ELSE MESSAGEBOX( [No Records Match Your Criteria] ) ENDIFat page2 grid1 belong mstr, at properties (record source csrmstr)