>>Append From Dbf('temp') >>>>
>>cAlias = Thisform.DataEnvironment.InitialSelectedAlias >>Select (cAlias) >>IF act_flag="1" >> GO BOTTOM >> LOCATE FOR UPPER(shipno)=ALLTRIM(thisform.text1.Value) AND act_flag="1" >> IF!FOUND() >> Append From Dbf('temp') >> replace transtype with "RE" >> replace SHIPNO with ALLTRIM(thisform.text1.value) >> >> With thisform.grid1 >> .recordsource = '' >> Select temp >> * Zap &&& another error ,many users can use this form >> *delete all >> .recordsource = 'temp' >> thisform.text1.SetFocus >> thisform.refresh >> endwith >>********************** >> with thisform.Grid1 >> .Recordsource = .Recordsource >> endwith >>ENDIF >>endif >> >>>>